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1 . SCOPE 

1. 1 Introduction 

GOAL is a higher order language developed at the NASA 
Kennedy Space Center to fulfill a need for a standard ground 
test language in manned space, flight. This language will be 
used by NASA and contractor personnel to write software for 
ground maintenance, checkout, and launch of the Space Shuttle. 

HAXi/S is a higher order language which was developed by 
the NASA Johnson Space Center for the flight software which is to be 
resident in the Space Shuttle's onboard computers. 

A need exists for a capability for running test programs 
written in GOAL in the onboard computers during ground maintenance 
and checkout for the Space Shuttle. These onboard computers will 
have a Flight Computer Operating System (FCOS) which is uniquely 
designed to be driven by application software written in HAL/S. 
To provide a different FCOS, which can be driven by GOAL, is 
not practicable (Ref. 1). Thus, the requirement for a GOAL to 
HAL/S translation capability has arisen. The feasibility and 
approach for such a translation was studied in an earlier document 
(Ref. 2). The favorable results of that study formed the foundation 
and justification for this document. The GOAL-to-HAL Translator 
Specification . 

1.2 Genesis of GOAL 

The development of GOAL was brought about by the need 
for a standard test language to be used for maintenance, 
refurbishment, checkout, and lau.ich of the Space Shuttle. 
Apollo experience had already proven the value of computer- 
automated checkout programs, while at the same time high- 
lighting the importance of early source language capabilities. 
ATOLL was such a language and was applied to Saturn V checkout 
and launch. 

As the requirements of the Shuttle program unfolded, 
it was evident that a high degree of checkout computer auto- 
mation would be required to meet schedule and cost objectives. 
Furthermore, the opportunity existed to develop a high order 
language early in the program so that, fi m the beginning, 
it was an integral part of the system. Requirements 
contracts were let by KSC in July of 1970. In May 1971, 
a language requirements document was published (KSC-TR-111) . 
Currently, three documents have been published which define 
the language. These are the GOAL Overview Document, the Syntax 
Diagrams Handbook (KSC-TR-1213) , and the GOAL Textbook (KSC- 
TR-1228) . Also, a GOAL compiler is currently being developed. 
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1.3 Genesis of HAL/S 

The development of HAL was stimulated by the same combina- 
tion of Apollo experience and anticipated Shuttle requirements 
that stimulated GOAL, except that HAL is oriented towards the 
onboard mission software for manned spaceflight with its great 
emphasis on 1) the mathematical requirements of navigation, 
guidance, and control and 2) the need for highly reliable real 
time control programs. Apol.lo experience had shown that the 
resources needed to program mission software in assembly language 
in a multi-program environment were excessive. 

Development of HAL began with a contract let by JSC early 
in 1970. This contract supported the generation of requirements, 
a survey of other languages, synthesis of a new language, and 
the building of a HAL compiler to run on the IBM 360/75 at the 
JSC Real Time Control Center, This effort was augmented a year 
and one-half later by a JSC contract to advance HAL to an operational 
status . As a result of this last contract, the HAL language was 
ready when the decision to specify the onboard software for 
Shuttle came up, and HAL/S, the Shuttle version, was chosen as 
the language in which the flight software will be written. 

1.4 Purpose of the Specification Document 
This document is intended to: 

1) treat the GOAL to HAL/S translation process as a 
complete software system, 

2) to define completely and definitively all aspects 

of the translation process where the facts are known 
(the GOAL Specification, the HAL/S Specification, etc.), 
and 

3) to identify, segregate, and define in concept and scope 
all remaining aspects of the translation process where 
the facts are incomplete, in transition, or not known 
(the Databank, FCOS, etc.). 

1.5 Scope of the Specification Document 

It is the objective of this document that it will form 
the basis for an implementation of the Translator once a host 
computing system and a Translator language have been designated. 
Accordingly, it is necessary that this Specification go beyond the 
mere mapping of GOAL statements into HAL/S statements end arrive 
at a technical structure which can encompass all the powerful 
GOAL features of databank resource and control, concurrent program 
execution, and software interrupts and many other features. 
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1*6 Outline of the Specification Document 

The main body of the Specification begins by presenting 
the technical approach in the critical areas of communication 
with the databank, software interrupts , repeats, etc. (See 
Section 3.0 DISCUSSION OF KEY TECHNICAL FEATURES). There then 
follows a section devoted to 1) spelling out assumptions that 
have been made for the translation process and 2) setting 
forth definitions and conventions applicable to the translator 
itself (See Section 4.0 ASSUMPTIONS AND DEFINITIONS). The heart 
of the Specification is presented next (Section 5.0 TRANSLATION 
REQUIREMENTS) . This begins with a presentation of the overall 
translator structure, followed by definition of various translator 
subroutines which have been found to be useful. The translation 
process is then defined in terms of a first or global look at 
the GOAL source (PASS 1) , followed by a statement by statement 
translation (PASS 2) of specific GOAL source statements. In keeping 
with the specific technical approach adopted in this Specification, 
it was decided that flow charts wc""M be the best means for 
presenting the processing of individual GOAL statements by the 
translator. Most statements involve alternatives and a textual 
treatment was deemed very inadequate compared with the flow chart 
approach. 

The interface to the FCOS that results from the proposed 
technical approach to translation is discussed next (Section 
6.0 EXECUTIVE SUPPORT STRUCTURE). The last sectior deals with 
reliable implementation of the Translator (Section 7.0 
IMPLEMENTATION, VERIFICATION, AND DOCUMENTATION REQUIREMENTS) . 
Appendix A presents the GOAL to HAL MAPPING material which 
illustrates the translation process without getting into the 
intricate details of implementation. 
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2.0 APPLICABLE DOCUMENTS 



2.1 GOAL Documents 



a ) Ground Operations Aerospace Language (GOAL) 
S yntax Diagrams Handbook , TR-1213, 16 April 1973, 
NASA John F. Kennedy Space Center. 

b) Ground Operations Aerospace Language (GOAL) Textbook , 
TR-1228, 16 April 1973, NASA John F. Kennedy Space 
Center. 



2.2 HAL/S Documents 

a) HAXi/S Language Specification , 1!; September 1973, 
Intermetr ics , Inc . 

b) HAL/S Language Forms, Rev. 1, 8 May 1973, Intermetrics, 
Inc. 

c) HAL/S-360 Compiler System Functional Specification , 
13 July 1973, Intermetrics , Inc. 
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3.0 DISCUSSION OF KEY TECHNICAL FEATURES 

3.1 The GOAL Master Program (GMP) Concept 

Thd; are several translation situations which can 
be handled together by a single unified strategy - the 
concept of a "GOAL Master Program* written in HAL/S, produced 
by the translator program, and responsible for coordinating 
all the HAL/S blocks produced by the translation process. 
The situations which lead to use of this strategy are several: 

a) GOAL has a -TERMINATE SYSTEM" statement which is 
supposed to cause "complete GOAL application program 
system shutdown". Thus, a means must be provided 

to make its effects global to all translated GOAL 
modules at execution time. 

b) GOAL allows a "CONCURRENTLY PERFORM PROGRAM" statement 
with no restrictions on the number of such statements 
referencing a single PROGRAM and how many such concurrent 
uses exist simultaneously off a single program module. 
The translator shall force the situation whereby a program 
can only be concurrently performed by one process at a 
time, i.e., if A and B are concurrent programs, then 

A and B cannot concurrently perform program C. The 
first statement to gai.i access will win the race. The 
second statement will have to wait for the first to 
finish. 

c) The set of translated GOAL programs have their own 
internal system of software interrupts and other signals, 
which, for reliability, should be kept self-contained 

to prevent unwanted interaction with the other HAL/S 
applications software. 

d) Data Bank information needs to be inserted into the 
translated program. This is contained within the GOAL 
Master Program, 

e) GOAL System Subroutines can be employed by all GOAL 
translated programs. These arc declared as HAL/S 
Procedures at the GMP level. 

f ) The software interrupt mechanism requires processing 
external to a GOAL program. 

In order to treat these situations properly, a GOAL Master Program 
shall be provided, with the following characteristics: Figures 
3-1 and 3-2 indicate the structure of the GMP. 
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a) When the GOAL system is to be initiated in the 
flight computer, it is the GOAL_MASTER_PROGRAM* 
which is scheduled and executed • 

b) Ench GOAL Program which is to be part of the running 
GOAL system will become a single HAL/S Procedure within 
the GOAL_MASTER_PROGRAM, nested at the program level. 
If the original GOAL Program is subject to multiple 
concurrent perform statements, then real time 
attributes of EXCLUSIVE will be applied in order to 
assure no conflicts. 

c) Each concurrent statement will generate a uniquely 
named HAL/S task block nested at the program level. 
The executable action CONCURRENTLY will consist of a 
SCHEDULE for the task so generated. 

d) At the GOAL_MASTERJPROGRAM level, a Boolean array INT 
is maintained. ThTs array carries the set of software 
interrupts available to all the GOAL system's blocks. 
The array INTNUM, used for interrupt communication, is 
also maintained. 

e) The Boolean array TERMSYS indicates which Goal processes 
have executed a TERMINATE SYSTEM command. 

*> Tho array of data bank buffers NUMBER, DIMENSION, STATE, 
TEXT, CONTROL are declared at the GMP level. 

g) The GMP will contain all function designator information 
organized so tha^ the hAL/S procedure DATABANK can access 
the appropriate data by using the function designator 
number FD as an index. For example, 

FD1 ~~ \ 

- : ; I Control words used by the HAL/S 

f procedure DATABANK 
FD2 



FD3 



* Written here in caps and with underscores to conform to HAL/S 
requirements . 
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Notes for Figure 3-2: 



PR/ PN MAX an ^ P MAX are ^ ef: *- ne( ^ * n Figure 5-1, p. 36. 

INT and INTNUM are arrays utilized in * he processing of ______ 

software interrupts (See Section 3.5, p. 21). 

TERMSYS is used to implement the TERMINATE SYSTEM Statement. 

(See Flowchart 78 , p. 941* 

These are the 5 DATABANK Buffer Arrays discussed in Section — — — 
3.3-6, p. 16. 

<GOAL PROGRAM NAME> is the name of the first Goal ■ 

Program in the group being translated. I 

I 

The implementation of concurrent processes within a HAL/S « 

program is accomplished through the use of HAL/S TASK blocks. ~~ " 
Therefore, the Translator will generate an appropriate HAL/S _ __ 
TASK for every CONCURRENTLY PERFORM, VERIFY, or RECORD 
statement which appears in a GOAL program. See Section 5.1.2, 
Item 3, and Concurrent Statement Flowchart (15). 

FD and PN are the function designator number and the process 
number received as parameters by the procedure DATABANK. The _ _ 
attribute of REENTRANT allows more than one process to ' 

execute "simultaneously" the procedure DATABANK. | 

I 
i 

i 

i 

i 
i 
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Pinure 3-2: Structure of the GOAL MASTER PROGRAM (GMP) 



GOAL_MASTER . ROGRAM : PROGRAM ; 
r DECLAt<E J >IT ARRAY (<PR>)BOOLEAN INITIAL (OFF) ; 
1 •_ DECLARE CNTNUM ARRAY (<PR>)INTEGER SINGLE; 

I .— DECLAPJJ "/ERMSYS ARRAY (<PN m >)BOOLEAN INITIAL (OFF) ; 

I '"DECLARE NUMBER ARRAY (<P„, = >) ; 

I IUclX 

. I , DECLARE DIMENSION ARRAY (<P max >)INTEGER SINGLE; 

I DECLARE S 'ATE ARRAY (<P M „ v >)BOOLEAN; 

• DECLARE 1 JXT ARRAY (<P W >) CHARACTER (<C m >) ; 

I max max 

, DECLARE CONTROL ARRAY (<P max >) INTEGER SINGLE INITIAL (0) ; 

[VzcZaAxtLon 6tat&me.n&> contabMig alt tkt function d&xignatosi In^OK- 
mation xzquu'Atd by the HAL/S PtioczduAt DATABANK 

G_<GOAL PROGRAM NAME 1>: PROCEDURE EXCLUSIVE; 

\tAOM latzd goal pAogtoun 



r 



G <GOAL PROGRAM NAME 2>:PROCEDURE EXCLUSIVE; 



[ 



TASK1:TASK; 

[A Tnan&Lxtcn.-&u.pptied Task aA&ocicUed with thz &uu>t 
CCNCURRENV GOAL Atatomnt 

TASK2:TASK; 

[A Tmni>la4:oA-&upplL n d T a4k a&&o<Uated utith the. &e.cjond 
CONCURRENT COAL Sta>. . \ant. 



DATABANK : PROCE DURE REENTRANT ( FD , PN ) ; 
fVatabank p> czdune. votUXAm In HAL/S. 



E 



>wce sl&> 9 iwlvzd hno*n GOAL &y6tw AubnoutinoA , used by Databank 
a* ddicaXzd by dec&ued function deAignatoK sLnfiosuncution 



CLOSE GOAL MASTER PROGRAM; 
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h) The GMP contains the HAL/S procedure DATABANK as well 
as any other procedures required to service function 
designator calls. 

i) All Goal subroutines become HAL/S procedures nested 
with the translated Goal Program, 

3.2 Structure of a Translated Goal Program 

Each Goal program or subroutine is translated into a 
HAL/S procedure with the structure as indicated in Figure 3-3. 
The following features should be noted: 

a) Declaration of interrupt related variables ENVIRON, 
ACTIVE. 

b) Declaration of variables associated with processing 
Repeat Instructions; HEAD, TAIL, RPTCTR, RPTACP, 
SAVE, RPT, RS. 

c) A place is reserved for all the declarations 
created by the Translator such as the loop indices I, 
J , K, ... 

d) The functions FLUSH, RPTCONT, and HANDLER appear in 
each program or subroutine contingent, of course, on 
whether or not WHEN INTERRUPT or REPEAT statements 
are present. 

e) The DOCASE label and RETURN_LABEL_CASE label contain 
the GO TO statements used in returning from interrupts 
and repeat statements respectively. 
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Notes for Figure 3-3: 



A translated GOAL subroutine from a translated GOAL Program 
only in tha first statement. The first statement for a 
subroutine should read: 

G_<Goal NAME>: Procedure (C) Assign (<Parameters>) ; 

where C is the critical bit. 

ACTIVE and ENVIRON are associated with software interrupt 
handling at the program and subroutine levels (See Section 
3.5-3, pp. 23-25). 

ACTIVE is the total number of interrupts specified wivhin 

a GOAL program or subroutine. It is determined in Pass i and 

is a static value. 

<FDI (K) > is the interrupt f unction designator number asso- 
ciated with the K th interrupt. 

These statements or functions are eliminated if no WHEN 
INTERRUPT statements appear in the program or subroutine. 

The GOAL REPEAT Statements require these declaration 
statements. Section 3.4 describes the purpose of each of 
these variables and how they are used. The Procedure 
PLUSH is used to re-initialize nested REPEAT groups 
if a GO TO statement is encountered whicn causes execution 
outside of an activated REPEAT group. The declaration 
statements, procedures, and functions associated with 
u^PEAT statements are encountered in translating the 
program. 



—i 
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Figure 3-3: Structure of a Translated Goal Program 



G_<GOAL NAME>: PROCEDURE EXCLUSIVE: 

'"declare ACTIVE INTEGER SINGLE INITIAL (<ACTIVE>) ; 

, DECLARE ENVIRON ARRAY (3,<ACTIVE>) INITIAL (<FDI(1)>, .. 

■ <FDI (ACTIVE) >, 0, ..., 0,0, ... 0); 

"DECLARE HEAD ARRAY (RSmax) INTEGER SINGLE 

INITIAL (<HEAD 1 > / <HEAD 2 > / . . . <HEAD RSmax>) ; 

DECLARE TAIL ARRAY .RSmax) INTEGER 

INITIAL (<TAIL(1)>,<TAIL(2)>, ... <TAIL (RSmax) >) ; 
DECLARE RPTCTR INTEGER SINGLE; 

DECLARE RPTACT ARRAY (RSmax) BOOLEAN INITIAL (OFF) ; 
DECLARE SAVE ARRAY (NDL) ; 

/*(NDL = number of dynamic nesting levels allowed) */ 
DECLARE RPT INTEGER SINGLE; 
DECLARE RS INTEGER SINGLE; 

DECLARE LOC INTEGER SINGLE; 
T DECLARE I INTEGER SINGLE; 
^DECLARE J INTEGER SINGLE ; 

[DECLARE K INTEGER SINGLE; and othaA thanb&cutoK g&neJatfzd 
dzcZa/icutlon t>ta£zmznti> uaerf &ok t&mpomny vcuUabteA. 
[FLUSH: PROCEDURE; 
[RPTCONT: FUNCTION BOOLEAN; 
I" HANDLER: FUNCTION BOOLEAN; 



Tmnblcuted Goat S&xtmznt; 

IF INT<PN> THEN IF HANDLER THEN GO TO DOCASE; 

DOCASE : [ 

RETURN LABEL CASE : [ 

CLOSEG <GOAL NAME>; 
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3. 3 Communication with the Databank 

In order to provide the features of function designators, 
as described in the Goal Text, the following design features 
have been incorporated into the Translator. Figure 3-4 indi- 
cates the various major features. 

1) All function designator names are resolved into uni- 
que numbers during Pass 1. 

2) Function Designator number is reserved for the 
"Stop and Restart" display. 

3) Function Designator 1 is reserved for the interrupt 
service routines. 

4) Function Designator 2 is reserved for the system de- 
vice referred to in the RECORD and OUTPUT EXCEPTION 
statements. 

5) Any function designator can be reached by the HAL/S 
statement: 

CALL DATABANK (function designator number, 
process number) ; 

DATABANK is a procedure at the GOAL_MASTER_PROGRAM level 
which is unspecified at this time with respect to internal 
functioning. It performs whatever function is specified by 
the function designator. 

A process is defined, for the purposes of this Translator, 
as any Goal translated program or any task created by the trans- 
lator as a result of a Goal Concurrent statement. 

6) Communication with DATABANK occurs through 5 DATABANK 
buffer arrays declared at the GOAL_MASTERJPROGRAM 
level : 

NUMBER scalar 

DIMENSION integer 

STATE boolean 

TEXT character string 

CONTROL integer 

These arrays net as a communication buffer for data 
transfer between Goal processes and the DATABANK pro- 
cedure. The length of these arrays equals the maxi- 
mum number of processes. These arrays are indexed 
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Figure 3-4 : Function Designator Communication 
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by the process number (<PN>) . For example, Number <PN> 
is the DATABANK buffer for numeric data dedicated to 
process number <PN>. 

7) The function designator information used by the pro- 
cedure DATABANK will be assembled by the Translator. 



3.4 REPEAT Statements 

Under the restriction of : nc overlapping repeat groups, 
the Translator shall implement the following features in order 
to execute Goal REPEAT statements as specified in the Goal 
Reference Manual. 

1) The Repeat translation process is handled separately 
for each Goal Program or subroutine. 

2) The following variables are used in the implementation. 

a) RPT is an integer which records the dynamic nest- 
ing level of repeat group execution. 

b) RS is an integer representing the Repeat state- 
ment number currently being executed. RSMAX is the 
total number of repeat statements in the Goal 
program or subroutine being translated. 

* c) RPTACT is an array of booleans of length RSMAX. 
Each bit corresponds to a Repeat statement. It 
is set if the Repeat statement is in the process 
of being executed. Many bits in the array RPTACT 
may be set simultaneously due to the possibility 
of dynamic nesting of repeat groups. Normal flow 
through a group of statements may not be the result 
of a REPEAT command. Then RPTACT is not set. 

d) SAVE is an array used to save the current value 
of RS when nesting of repeat groups occur. This 
array is of length NDL which is the maximum level 
of dynamic nesting allowed. 

e) RPTCTR is an array of repeat counters. Each 
counter is associated with a Repeat statement. 

f) HEAD is an array of step numbers which indicate 
the step number of the first statement of the 
repeat group. HEAD is indexed by RS to find the 
starting location of the repeat group. 



18 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 6b1-184C 



g) TAIL is an array of step numbers associated with 
the last statement of a repeat group. TAIL(RS) 
is the last GOAL statement of the Repeat state- 
ment RS. 

h) RETURN_LABEL_<RSN> : is the HAL/S statement lauel 
to which control is to be transferred after execu- 
tion of the repeat group initiated by Repeat 
statement RSN. 

i) LOC is a translator declared variable used by the 
function FLUSH. The value of LOC is set equal t 
the target of the GO TO statement when this targ 
is outside of the repeat group. See flowchart 
GO TO (34) . 

3) Each Repeat statement is translated into the following 
in-line HAL/S code with RSN = repeat number of the 
repeat instruction being translated and N = number of 
iterations. (See Figure 5.2) 

RPT - RPT + 1; increment repeat nesting depth 

RPTACT<RSN> = ON; active repeat group 

SAVE Dn _ - RS; ."">ave old repeat statement no. 

RS = <RSN>; establish new repeat statement 

no. 

RPTCTR^ = <N>; establish no. of iterations 

30 TO HEADj^-; transfer control to repeat 

group 

RETURN_LABEL_<RSN> : return to this label 

RS = SAVEpp T ; restore old repeat statement no, 

RPT = RPT - 1; decrement repeat nesting depth 

4) At the TAIL of each repeat group there shall be in- 
serted: 



HEAD RS 



:o 



REPEAT GROUP 
TAIL r 



J RS* 
IF RPTACT rS = TRUE AND RPTCONT <= TRUE THEN 

/* RPT C0:JT. is a HAL/S function which 
controls the execution of the Repeat 
group. (See Note 6) , next page) */ 

GO TO HEAD RS ; 

ELSE GO TO RETURN_LABEL_CASE ; 
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5) Once per Goal program or subroutine translated i*.to 
HAL/S there shall be inserted the following state- 
ments : 

RETURN_LABEL_CASE: DO CASE RS ; 

GO TO RETURN_LABEL_1; 

GO TO RETURN LABEL 2; 



GO TO RETURN_LABEL_< PSMAX> ; 

Ei ."> ; 

6) The RPTCONT function call shall consist of the fol- 
lowing HAL/S code: 

RPTCONT: FUNCTION; 

RPTCTRj^g = RPTCTRj^g - 1; /*Decrements repeat 
counter by 1*/ 

IF RPTCTRp = THEN 

DO; 

RESET RPTACT^; 

RETURN FALSE; 

END; 
ELSE RETURN Ti.UE ; 
CLOSE ; 



7) The FLUSH procedure is called whenever a GO TO statement 
is encountered within an activated repeat group and 
when the target of the GO TO statement is outside the 
repeat group. The FLUSH function shall consist of the 
following HAL/S statements: 



FLUSH : PROCEDURE ; 

BACK: RPTCTR^ = 0; 

RESET RPTACTj^; 

RS = SAVE RpT ; 

RPT ■ RPT - 1; 

IF RPT = THEN RETURN; 
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IP NOT (HEAD^ < LOC AND TAIL^ > LOC) 
THEN GO TO BACK; 
ELSE RETURN; 
CLOSE; 

3.5 Software Interrupts 

GOAL sof tv ire interrupts possess the following qualities: 

1) An interrupt may only be serviced at the .end of a 
Goal statement. 

2) Every GOAL program and subroutine possesses its own 
interrupt environment created by WHEN INTERRUPT and 
DISABLE statements. 

3) Subroutines which are performed in vhe critical mode 
ignore all interrupts. 

4) If enabled, an interrupt may cause one or both of 
the following actions to occur; 

a) a subroutine may he performed 

b) control may be passed to a specified step num- 
ber, (GO TO or RETURN TO Options) 

In order to provide these features in the GOAL_MASTER_ 
PROGRAM, each translated GOAL program, and each translated 
GOAL subroutine are impacted. The following structure is spe- 
cified for handling interrupts. Figure 3-5 shows the overall 
information flow. 

1) At the GOALJMASTER_PROGRAM level two arrays are de- 
clared. 

a) INT is aii array of booleans indicating that an 
interrupt is pending. Each Goal program pos- 
sesses one bit. 

b) INTNUM is an array of integers which indicate 
the number of the function designator associated 
with the pending interrupt. There is one inte- 
ger for ^ach GOAL program. 

2) Function Designator number one . ; is reserved to 
provide all the logic necessary to control interrupts. 
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Figure 3-5: Interrupt Information Flow 
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Function designator 1 or FD(1) is, in actuality, a 
series of procedures which can be called via the 
HAL/S procedure DATABANK. The following services 
are provided: 

a) FD(1) maintains the enabled or disabled status 
of all the interrupts associated with each GOAL 
Program. 

b) It provides a stack mechanism so that the inter- 
rupt status may be PUSHED (saved and cleared) as 
well as POPPED (restored) . 

c) The interrupt condition associated with the vari- 
ous interrupt function designators are all commu- 
nicated to FD(1). Depending upon the interrupt 
status, associated with the interrupt, the array 
INT and INTNUM are written into. 

d) Any priority issue associated with interrupt con- 
flicts is resolved by FD(1). 

e) Because interrupt function designators are not 
completely specified in the GOAL Reference Manual, 
all the interrupt mechanisms requiring definition 
are placed within FD(1). 

3) Each Goal program and subroutine maintains its own 
interrupt environment in a local two dimensional 
array called ENVIRON. 

a) ENVIRON (1,K) contains the number of the K th in- 
terrupt function designator used in the program 
or subroutine. The contents of ENVIRON (1,K) are 
established in Pass 1 of the Translator and do 
not change during the life of the translated pro- 
gram. 

b) ENVIRON (2,K) contains the number of the sub- 
routine to be performed when the K^ interrupt 
occurs. A will indicate that no subroutine is 
to be performed. The WHEN INTERRUPT statement 
causes ENVIRON (2,K) to be written into. 

c) ENVIRON (3,K) contains the case number of the 

GO TO statement to be executed during the servi- 
cing of interrupt K. A indicates no GO TO option 
is present. The WHEN INTERRUPT statement causes 
ENVIRON (3,K) to be written into* 
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4) The translation of the WHEN INTERRUPT statement will 
cause the interrupt to be activated with the follow- 
ing HAL/S code, where <FD> is the interrupt function 
designator associated with the WHEN INTERRUPT 
statement : 

IP NOT C DO; /*not a critical subroutine*/ 

CONTROL = <enable interrupts 

NUMBER <pN> = <FD>; 

CALL DATABANK (1, <PN>) ; 
END; 

5) Disabling of a specified interrupt is accomplished 
by 

CONTROL <pN> = <disable interrupt>; 

NUMBER,-..^ = <FD>; 
<PN> 

CALL DATABANK (1, <PN>) ; 

6) The saving and clearing of the interrupt status asso- 
ciated with a GOAL program is accomplished by 

CONTROL = <push interrupt environments 
<PN> 

CALL DATABANK (1, <PN>) ; 

7) Restoration of the interrupt status is accomplished 
by 

CONTROL _ N » <pop interrupt environment ; 

CALL DATABANK (1, <PN>) ; 

8) At the end of every goal statement the following is 
inserted 

IF INT <PN> = TRUE THEN 

IF HANDLER s TRUE THEN GO TO DOCASE; 

9) HANDLER is a translator defined function associated with 
each program or subroutine. 

HANDLER: FUNCTION BOOLEAN; 

DO FOR 1=1 TO ACTIVE; 
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IF ENVIRON (1,1) , = INTNUM<PN> THEN EXIT: 
ELSE SIGNAL ERROR x ; 

END; 

CONTROL -= <INT BEING SERVICED>; 

<PN> 

CALL DATABANK (1, <PN>) ; 
DO CASE ENVIRON (2,1) ELSE; 
CALL . . . 

I LUtlng oh all poteibtt 6ubhoutinz cjoJUU contlnQznt 
m upon JMtwuupiA within the. pKognam ok hubtioutinz. 

CALL . . . 

END; 

IF ENVIRON (3,1) > THEN RETURN TRUE; ELSE 
RETURN FALSE; 

CLOSE ; 

10) At the end of every translated GOAL program or sub- 
routine (excluding those with no interrupt statements) 
is the following: 

DOCASE: LOC=0; CALL FLUSH; /* Resets appropriate 

repeat counters */ 

DOCASE ENVIRON (3,1) ELSE; 

GO TO 

I LUtlng o& aJUL po&6lble. GO TO 9 6 contlngznt upon 
InteAAuptb 

GO TO ... 

END; 
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4.0 DEFINITIONS AND ASSUMPTIONS 

4.1 Definitions and Notation 

< > means substitute the contents of. For example: 

A = <NAME>D <LI> , 

where 

IMPORTANT NOTE : 
NAME = SAUL S ~ " ~ ^ . ^ ^ ^ 

LI = INDEX Thc Trans * a tor must substitute 

underscores for spaces in GOAL 
then source identifiers. 

<A>= SAUL^SD INDEX 
(K) means that K is a variable of an element. 

NAME(K) Means that NAME is a function of K. For example. 

Data = <TN>D 
where ' 

TN = TABLE 

CI = COLUMN 

<DATA(K)> = TABLED^ ^^^ 

<DATA(3)> = TABLED3 /COLUMN 

See subroutine section 5.2 for notations associated with 
CONVERT_NUMERIC, CONVERTJTIME , EVAL_INT_NAME , EVALJBD, EVAL_ 
NUM_FORM, LIM_FORM and BEL_FORM. 

In the Flowcharts , GOAL Source input is indicated by 
1 • 9 whereas HAL/S Source output is indicated by " n . 

4.2 Assumptions 

4.2.1 Overall Scope 

a) Output of the Translator (Reference : GOAL-to-HAL 
Translator Final Report, Section 2.2.1a, Page 2-15) 
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The GOAL-to-HAL Translator will produce HAL/S code in 
full conformance with the appropriate (see Section 2.2) HAL/S 
documentation including: 

HAL/S Language Specifications 

HAL/S Language Forms 

HAL/S Compiler System Functional Specifications 

b) . "Two-Pass" Structure 

The Translator will operate in more than one pass. 
Conceptually, the first pass is required to take inventory 
of that GOAL program data which must be viewed from a "global" 
point of view. The first pass also processes the declare 
statements. The second pass processes the individual GOAL 
procedural and system statements. The HAL/S code generated in 
PASS 1 becomes the front end of HAL/S code generated in PASS 2. 

c) Interface to the Flight Computer Operating System (FCOS) 
(Reference: Shuttle Avionics and the GOAL Language Final 
Report, Section 3.1.4 and Figure 3-4 , Pages 3-9, 3-10) 

GOAL programs translated into HAL/S will have the same 
interface specification as that provided for the mission 
application programs. The basic interfaces to the FCOS arise 
from HAL/S real time and error control statements. These 
interfaces will also apply to code derived from GOAL statements 
translated into HAL/S. 

A corollary to this specification of the FCOS interface is 
that the Translator is not necessarily configured to supply 
HAL/S code for other computing systems in the overall Shuttle 
program, such as the Software Development Laboratory (SDL) , 
Shuttle Avionics Integration Laboratory (SAIL) , etc. GOAL- 
translated programs will run in these facilities to the extent 
that the operating systems are similar . 

d) Use of the GOAL Master Program (Reference: GOAL-to-HAL 
Translation Final Report, Section 3.2, Pages 3-14 to 3-22) 

The referenced text proposed a technical approach for 
dealing with GOAL capabilities in the areas of software 
interrupts, system terminations, and concurrent operations. 
This approach, designated the GOAL Master Program, is expanded 
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in Section 3.0 of this Specification document and will be the 
basis for implementing the translation process. 



e) Non-GOAL (Reference: GOAL-to-HAL Translation Final 
Report, Section 3.1.5, Page 3-7) 

The Translator will not have any capability for dealing 
with Non-GOAL source code. 



f) Databank (Reference: GOAL-to-HAL Translation Final 
Report, Section 3.1.6, Pages 3-8 to 3-12) 

The Translator plays no role in the creation and management 
of the Databank, which is unspecified at this time. However, 
the Translator, in addition to processing the GOAL source code 
into HAL/S, will provide a complete software system in the 
GOAL_MASTER_PROGRAM for communicating correctly and efficiently 
with the Databank. This is described in Section 3.3 of this 
Specification. 

Creation and management of the Databank is accomplished 
by an unspecified Data Management System on the ground. 



4.2.2 Features 

a) Revision Numbers (Reference: GOAL-to-HAL Translation 
Final Report, Section 3.1.1, Page 3-1) 

Revision labels are always part of a GOAL program name 
or a databank name. There are no run-time decisions involving 
revision number values. 

b) Unrestricted STOP (Reference: GOAL-to-HAL Translation 
Final Report, Section 3.1.2, Page 3-2) 

The Translator will provide the capability of stopping 
and restarting at selected points. The ability to restart at 
any point, the unrestricted STOP, will not be provided. 
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c) Overlapping R^^EATS (Reference: GOAL-to-HAL Translation 
Fxnal Report, Section 3.1.3, Pages 3-2 through 3-6) 

As recommended by the referenced text, REPEAT groups 
are to be limited to non-overlapping groups with the grouping 
performed by the programmer. 

d) Dimensional Labels in GOAL Quantities (Reference: 
GOAL-to-HAL Translation Final Report, Section 4.1, 
Pages 4-2, 4-4, 4-5, and 4-9) 

GOAL quantities will be treated as in the referenced text 
by developing a label declaration, arrayed if necessary, to 
match the parameter declared as a Quantity in GOAL. The label 
is to be used for output labeling only and plays no role in 
dimension checking or automatic scaling. 

e) Table Activation (Reference: GOAL-to-HAL Translation 
Final Report, Section 2.1.3.8, Page 2-13, and Section 
4.13, Pages 4-7 through 4-12) 

The activation of function designators and their associated 
rows of data will be handled by arrays of HAL/S BOOLEANs as 
described in the referenced text. 

f) CONCURRENTLY (Reference: GOAL-to-HAL Translation 
Final Report, Section 3.2.2, Pages 3-21 and 3-22) 

HAL/S does not permit use of a program module by more 
than one user process at a time. Accordingly, the Transistor 
shall generated from each concurrent statement a uniquely 
named HAL/S task block, which will be executed via a HAL/S 
SCHEDULE statement. 

g) Time Values 

All time values are converted to, and maintained as, 
seconds (or other FCOS-defined unit of time) in floating point 
format. Conversion back to days, hours, minutes, and seconds 
can be performed by a> function designator when required. 

h) Comparisons 

In a comparison test, if an array of elements is being 
tested, then all the tests must be true in order for the condition 
of the statement to be true. If tables are being tested, then 
tests are performed only on activated function designators. 
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i) Numerics 

Number data is single precision floating point. 
Integer is a subset of floating point with a zero exponent. 
Alx number patterns may be converted to single precision 
floating point format without loss of precision. Function 
designators will perform the appropriate conversion for output. 

j) SET For Time Value 

The SET discrete statement will accomplish the FOR 
time-value option by calling the referenced function designator 
twice. The latter will have its own built-in toggle. 

k) RECORD Statement Features 

The system device default option in the RECORD tatement 
will be activated through the function designator <system 
device>. The '," in the RECORD statement will be passed to 
the appropriate function designator for interpretation as a 
Line Feed or other formatting action consistent with the device 
being addressed. 

1) Assumptions Concerning Present Value of (PVO) 

* The number of elements in the first External Designator 
must equal the number of elements in the second 
External Designator. 

* One External Designator may be a Table name, the other 
may be a list of Function Designators. 

* In order for the PVO to transfer data from a sender 
to a receiver, the activate bits of both sender and 
receiver must be 1. 

Illegal GOAL: 

Send PVO <FD1> TO <FD2>, <FD3>; 
Send PVO <FD1>, <FD2> TO <FD3> ; 
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Legal GOAL: 



SEND ALPHA FUNCTIONS TO <FD1>, 

<FD2>, <FD3>; 

(Table ALPHA must have 3 rows) 



4.2.3 Ground-Based Operating System (GBOS) 

a) GBOS Support Services (Reference: None) 

During run-time , the GBOS may be called upon to support 
the flight computer with services requiring the downlink of 
data to CRT's and printers controlled on the ground. The 
details of accessing ground-based peripheral equipment from 
the flight computer is external to the GOAL-HAL/S Translator. 
The flight computer interface is handled through an appropriate 
function designator. 



4.2.4 Undefined 



a) FEEDBACK LOOPS (Reference: GOAL-to-HAL Translation 
Final Report, Section 2.1.4, Page 2-14) 

The GOAL syntax loops presently have limitations designated 
by letter symbols. Tiics^ ^ynibols are summa~.xzed in the feedback 
letters in the GOAL Syntax Dia7*ams nanuoook, NASA/KSC Document 
TR-1213, dated 16 April, 1973. Values have not yet been assigned 
to these letter symbols. Tentatively, the GOAL-to-HAL 
Translator could be designed to flag an error if the number 
of executions of the loop exceeds the letter. At a later time, 
the letter would have to be specified. 
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5.0 TRANSLATION REQUIREMENTS 

5. 1 Structure of the Translator 

5.1.1 Introduction 

The implementation of the translator may ultimately 
consists of one or many passes through the GOAL source code. 
The actual number of passes is a matter of detailed design of 
the Translator for efficiency. 

In order to isolate all the functions involved in the 
Translator, a conceptual division into t^o passes will be made. 
This is done mainly for the purpose of achieving clarity in 
this specification. Much of the effort expended in one pass of 
the Translator could just as well be accomplished in another 
pass. Some freedom to choose should be available to the imple- 
mentation stage . 

Conceptually, the Translator consists of two sequential 
processing sections called PASS 1 and PASS 2 and a final Output 
Processor which generates the GOAL_MAS rT 'ER_PROGRAM and organizes 
the translated statements in an appropriate format. This for- 
mat is determined by the output device used by the machine in 
which HAL/S compilation is to take place. 

The segregation of functions between PASS 2 and Output 
Processor is a bit arbitrary, but it was done in order to make 
the Translator more modular and place any machine dependent 
(the machine in which the compiler is to run) features in the 
Output Processor. 

5. J. 2 PASS 1 

The following operations shall be performed in Pass 1: 

1) Process. GOAL Declarations 

All GOAL Declaration statements shall be processed in 
order to place into the Translator's symbol table the following 
information: 

a) For single element variables 

<NAME>TYPE 
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where <NAME> is the name c . the variable as it appears 
in the GOAL declaration statement. <NAME> TYPE can 
assume one of four values: 

- Numeric data 

1 - Quantity data 

2 - State data 

3 - Text data 

b) For list declarations 

<LISTNAME>TYPE = 0,1, 2,3 as for single elements 

<LISTNAME> = length of the list as described in the 
GOAL declaration statement. 

c) For table declarations 

<TABLENAME>TYPE = 0,1,2,3 as with single elements. 

<NAME>TYPE 

<TABLENAME>J C = This is an array of column names as 
declared in the GOAL declaration statement. This 
array is an optional feature of tho GOAL declara- 
tion an<~ consequently may not appear in the symbol 
table. 

<TABLENAME>CS = This is the column size of the table 
as declared in the GOAL declaration statement. 

<TABLENAME>RS = This is the row size of the Labi* as 
declared in the GOAL declaration statement. 

The actual generation of the appropriate HAL/:> declaration 
statements, zs presented in flow charts, can either be performed 
in Pass 1 or in Pass 2. This is implementation dependent and 
does not impact the final output of the Translator. 

2) Step Number Resolution 

Pass 1 will assign step numbers to all GOAL statements in 
sequential order. When Pass 2 processes the GOAL statements, 
all statements will possess step numbers. Pass 1 will substitute 
any GOAL source step numbers with the appropriate translator 
supplied step numbers. 

3) Assign Process Number (PN) 

A process is defined as any GOAL Program or HAL/S gen- 
erated Task (created by a Concurrently Verify, Concurrently Re- 
cord or Concurrently Perform statement) . 

Pass 1 will assign a process number (PN) to each process. 
The maximum number of processes (PNmax) equals the number of 
GOAL programs plus the iotal number of concurrent statements 
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which appear in all the Goal Programs being translated. A 
Process Array will be generated for use by Pass 2. The organi- 
zation of this array is shown in Figure 5-1. 

All GOAL programs are assigned process numbers first, fol- 
lowed by Concurrently Verify, Record snd Perform statements* 
The Concurrently Perform statements are placed last in this 
array so that the numbers PR, PNroax, and Pmax can be differen- 
tiated. These numbers are later used in the creation of declara- 
tion statements in the GOAL_MASTER_PROGRAM. 

The process array is utilized many places in Pass 2. 

a) For convenience the task number associated with each 
concurrent statement will be made equivalent to the 
process number which appears in the process array. 

b) Whenever <PN> is indicated in a Pass 2 flow chart, 
thr r; jcess number associated with the GOAL process 
being translated (as indicated in the process array) 
will be used. 

c) RELEASE statements requxrc the association of a step 
number in a program with the task name. The task name 
is generated by concatenating the process number asso- 
ciated with the step number with the letters TASK, 
i.e., TASK <PN>. 

d) In Pass 2, when tasks are generated by concurrent 
statements the task number (process number) is obtained 
from the process array. 

4) Repeat Statement Analysis 

In order to generate the appropriate HAL/S code associated 
with Repeat Statements the following information must be gathered 
in Pass 1 and placed in the Repeat Array (Figure 5-2) . This is 
done for each GOAL program or subroutine: 

a) Each repeat statement is assigned a number (R3N) ac- 
cording to th^ order in which they are processed. 
RSMAX equals the number of repeat statements. 

b) The repeat statement step number (e.g., step 5) is 
used for identification purposes. 

r) Associated with each Repeat statement is the step 
number of the first GOAL statement of the repeat 
g-:oup. Tnis is pidcevl in the column HEAD. 
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Figure 5-1: Process Array 



Process Number 



Identifiers 



1 

2 

• 
• 
• 

PR 


Name of First Goal program 

Second Goal Program 

• 
• 
• 

Last Goal Program 


PR+1 
PR + PV 


Program name and step number associated 
with first Concurrently Verify state- 
ment 

Program number and step number associa- 
ted with second Concurrently Verify 
statement 

• 
• 

with last Concurrently Verify statement 


PR + PV + 1 

Pmax = PR+PV+PREC 


Program name and step number associated 
with first Concurrently Record state- 
ment 

Program name and step number associated 
with second Concurrently Record state- 
ment 

• 
• 

with last Concurrently Record statement 


PR+PV+PREC+1 
PNmax=PR+PV+PREC+PPER 


Program name and step number associated 
v;ith first Concurrently Perform state- 
ment 

Program name and step number associated 
with second Concurrently Perform state- 
ment 

* 
• 
• 

Program name and step number associated 
with last Concurrently Perform state- 
ment 1 



PR = number of goal programs 

PV = number of concurrently verify statements 

PREC « number of concurrently record statements 

PPER = number of concurrently perform statements 
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Figure 5-2: REPEAT Array 



RSI! 


Repeat Statement Number 


HEAD 


TAIL 


1 


Step 5 


Step_7 


Step_19 


2 


Step 12 


Step_103 


. Step_103* 


3 








• 
• 
• 








RSMAX 









RSMAX = number of repeat statements within the Goal program 
or subroutine being translated. 



* In the case of a REPEAT group containing one statement 
HEAD and TAIL refer to the same statement number. 
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d) Associated with each Repeat statement is the step 
number of the last Goal statement in the repeat 
group. This is placed in column TAIL. 

The following declarations are created and are to be in- 
corporated into the translation of the GOAL program or GOAL 
subroutine. 

DECLARE HEAD ARRAY (RSmax) INTEGER SINGLE 

INITIAL (<Head(l)>, <Head(2)>, ... <Head (RSmax) >) ; 
DECLARE TAIL ARRAY (RSmax) INTEGER SINGLE 

INITIAL (<TAIL(1)>, <TAIL(2)>, ... <TAIL (RSmax) >) ; 
DECLARE RPTCTR INTEGER SINGLE; 
DECLARE RPTACT ARRAY (RSmax) BOOLEAN 

INITIAL (OFF) ; 
DECLARE SAVE ARRAY (NDL) ; 

(NDL = number of dynamic nesting levels allowed) 
DECLARE RPT INTEGER SINGLE; 
DECLARE RS INTEGER SINGLE; 

HEADj^ and TAIL R are the K entries in the repeat array. 

e) If no Repeat statements are encountered in the 
program or a subroutine being translated, a flag is 
set so that all Repeat Mechanisms will be eliminated 
in Pass 2. 

5) Replace 

All the Replace statements encountered in the GOAL source 
are executed in Pass 1 prior to code generation in Pass 2. 

6) Macros 

All macros are expanded in both Pass 1 and Pass 2. The 
contents of the expanded macros are processed identically to 
other Goal statements . 

7) Interrupts 

In order to generate the appropriate code and data to 
handle software interrupts the following action must be per- 
formed in Pass 1. These actions are performed for each GOAL 
program and subroutine. 
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a) An interrupt number (IN) is assigned to each interrupt 
function designator encountered in the programmer 
subroutine. The list of interrupt function designa- 
tors is determined by analyzing all the WHEN INTERRUPT 
statements encountered. The interrupt numbers are 
assigned on a first come, first served basis. The 
variable ACTIVE will contain the total number of in- 
terrupts used in the program or subroutine being pro- 
cessed. 

b) A list of all subroutines referenced in the WHEN 
INTERRUPT statement is assembled. A subroutine num- 
ber, SN, is assigned to each subroutine on a first 
come, first served basis. 

c) A list of all the GO TO or RETURN TO step numbers is 
assembled and a case number (CN) is assigned to each 
case. 

The arrays IN, SN, CN will be used in translating 
WHEN INTERRUPT statements as well as in synthesizing 
the final structure of each GOAL program or subroutine, 

d) The following declaration statements are created by 
Pass 1 and entered at the beginning of the translated 
GOAL program or subroutine. 

DECLARE ENVIRON ARRAY (3,<active>) INTEGER 

SINGLE INITIAL (<FDI(1)>, <PDI(2)>, ... 
<FDI (Active) >, 

0,0, ... 0, 

0,0, ... 0) ; 

<PDI(K)> is the number of the function designator 
associated with the K^h interrupt. 

DECLARE ACTIVE INTEGER SINGLE INITIAL 
(<ACTIVE>) ; 

e) A list must be generated which relates the step num- 
ber of the WHEN INTERRUPT Statement to the interrupt 
function designator number. This list is used in 
translating the DISABLE statement in Pass 2. 

f) If no WHEN INTERRUPT statements are encountered by 
Pass 1 in a program or subroutine, then a flag is set 
in the translator so that all interrupt mechanisms 
are eliminated in the code generation part of Pass 2. 



39 

<TERMEir,:CS INCORPORATED • 701 CONCORD AVENVE • CAt/TlP.IDCE, MASSACHUSETTS 02123 • (617) €~,1 1 240 



8) Function Designators, External Designators and the Databank 

In order to provide a proper communication to databank in- 
formation the following actions are performed by Pass 1: 

a) All the function designators referenced in the GOAL 
source being compiled are gathered. This includes 
all GOAL programs and subroutines in the GOAL Trans- 
lation submittal. Each function designator is assigned 
a function designator number on a first-encountered 
basis. 

b) Every time an external designator is encountered 
which consists of a grouping of function designators 
(rather than a table name) the array of function 
designator numbers (AFD) is declared 

DECLARE AFD<N> ARRAY (<KMAX>) INTEGER SINGLE 
INITIAL (<FD(1)>, <FD(2)>, •.. <FD(KMAX)>); 

where <FD(K)> is the K function designator number 
encountered in the external designator. 

<KMAX> is the number of function designators in the 
external designator. 

<N> is the number of the external designator assigned 
on a first come basis. 

c) The list of function designator numbers gathered in 
Pass 1 is sufficient information to extract from the 
ground based data bank all the information required 
for the flight machine. This process will be 
performed by the Translator. 



9) GOAL Comments 

All the GOAL comments appearing within a GOAL statement 
will be collected by Pass 1, and inserted into the GOAL Source 
after the semicolon ( ;) of the GOAL statement. The translated 
GOAL comments will then be handled according to the rules of 
the HAL/S output writer. 
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5.2 Translator Subroutines 



5.2.1 CONVERT_NUMERIC 

The CONVERT_NUMERIC subroutine shall take a GOAL number 
or a GOAL number pattern and convert it to single precision 
format. The size of the number pattern (BIN r OCT r HEX) , shall 
be such as to fit into the fraction portion of the floating 
point format without any loss of information. This routine shall 
return the result as the Translator variable <VALUE>. 



5.2.2 CONVERTJPIME 

This is a procedure which accepts TIME VALUE and Returns 
TIM = number (e.g., 3) 



or 



name (e.g., ALPHA) 



The literal time value returned is converted into a HAL/S 
scalar in units of seconds or other FCOS defined unit of time. 



5.2.3 EVAL_INT_NAME 

The Translator shall provide a subroutine called EVAL_INT_ 
NAME which shall accept the GOAL internal name and return the 
parameters NAME, DATA, DIM, ACT, KMAX, and T as defined in the 
ch^rt below. 



Case 



Parameter 



Single 
Name 



List (1) 



TABLE(2,3,4,5) 

with a Row index 



Table With- 
out a Row 
Index 



NAME 

DATA 

DIM 

ACT 

KMAX 

T 



<NAME> 

<KAME>D 

<NAME>DIM 

1 





<LISTNAME> 
<LISTNAME>D 



<LI> 



<LISTNAME>DIM 



<LI> 



1 
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<TABLENAME> 
<TABLENAME>D 



<RI>,<CI> 



<TABLENAME> 



<TABLENrtME>D K <CI> 



<TABLENAME>DIM 



<RI>,<CI> 



<TABLENAME>DIK 



K,<CI> 



<TABLENAME>A 
1 
1 . 



<RI> 



<TABLENAME>A 
K 

<TABLENAME>RS 
2 



vlTERVFTRJCS if 'COHPORATED * 701 CONCORD AVENUE • C' 



Notes : 

1) LI is the list index. It can either be an integer (e.g., 3) 
or an alphanumeric name (e.g., K) . 

2) RI is the table row index. It can either be an integer or an 
alphanumeric name. 

3) CI is the table column index. The column name is converted 
* to a column number by searching the array <TABLENAME> C 

created in Pass 1. 

4) A degenerate table of 1 row will be returned with T=l, DATA= 
<TN>D 1 <CI> * ACT=<TN>A ir KMAX=1. 

5) If TABLENAME is not specified then the tablename previously 
defined in the statement being translated is used. 

6) KMAX = number of elements in internal name. 

7) T = Tag, identifying the cases shown on the previous page. 
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5.2.4 EVAL_ED 

The Translator shall provide a subroutine called 
EVAL_ED which accepts the GOAL external designator and 
returns the parameters T, AFD(KJ, KMAX, and TK as defined 
in the table below. 



^S^ase 1 






Parameter ^s. 


Array of Function Designators 


Table Name 


T 





1 


AFD(K) 


Array of function designators 
AFD(K) = AFD<N> 




KMAX 


length of array 


<TABLENAME>RS 


TN 




<TABLENAME> 



Pass 1 will generate the 
following declaration 



DECLARE AFD<N> ARRAY<KMAX> INTEGER; 

Where N = a unique external designator 
identification number assigned in Pass 
1. 
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5.2.5 EVAL_NUM_FORM 

The Translator shall include a subroutine designated 
EVAL_NUM_FORM . This subroutine shall generate a HAL/S equivalent 
numeric formula. EVAL_NUM_FORM shall: 

1) Return NF(K) = Numeric Formula 

The index K is used if the numeric formula contains 
table names as variables. In this case, K is used 
to index down the rows of table* 

For example, if A and B are table names in GOAL, 
the GOAL numeric formula: 

(A) + (B) + 1; 

would become the HAL/F numeric formula: 

"*™ = ^CI^ + BD K,<CI 2 > + X 

HAL/S will perform an element by element addition if 
AA and 3A-. are True. 

2) Return TNA which is an array of table names used in the 
numeric formulae. 

Example: 

TNA(K) = K th table name 

<TNA(K)>A. = j th motivation bil of the K fc h table na 

3) Return LMAX = length of TNA array. All quantity data 
and number data is assumed to be single precision 
floating point. 

4) Return T f which is a control flag. 

T = 0, if no table names are in the formula. 
T = 1, if there are table names in the formula. 
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5.2,6 LIM_FORM 

The Translator shall contain a subroutine called 
LIM_FORM which accepts the GOAL limit formula, without the 
optional internal name. The internal name, if necessary, will 
be evaluated separately. The following items are returned by 
LIM_FORM to the caller. 

1) Lower Limit Information 

If an internal name is indicated the EVAL_INT_NAME 
is called and the following parameters are returned. 

LLT = <T> 

LLNAME = <NAME> 

LLDATA = <DATA> 

LLACT = <ACT> 

A number will return: 

LLT = 
LLDATA = <NUMBER VALUE> 

A Quantity will return: 

LLT = 
LLDATA = <QUANTITY VALUE> 

All of the above parameters are character strings to 
be used by the Translator. 

2) Upper Limit Information 

This is evaluated similar to the lower limit. The 
following parameters are returned: 

ULT = <T> 

ULNAME = <NAME> 

ULDATA = <DATA> 

ULACT = <ACT> 

A number will returns 

ULT = 

ULDATA = < number value> 
A Quantity will return: 

ULT = 

ULDATA = <Quantity value> 
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3) LF = 'OR' if the Not option is used 

•AND' if the Not option is not used. 

Lower and Upper limit information is reversed for the 
Not option. 

4) EXDATA ■ 'NUMBER <pN> ' 

This is used only when external designators are employed 
in conjunction with the limit formula. 

5.2.7 REL_FORM 

The Translator shall contain a subroutine called REL_FORM 
which accepts the GOAL relational formula without the optional 
internal name. The internal name, if necessary, will be evaluated 
separately. The following items are returned by RELJPORM. 

1) The relation 

RF which is either = ,>, <, >, <. 

2) RT = single n« j or type: 

RNAME = number, converted number pattern or 

quantity value, single name, <LIST NAME> <LI ^, 

TEXT data, STATE data. 
RT =1: RNAME =<TABLENAME> <RI><CI> 
RACT(K) = <TABLENAME>A <RI> 

RT =2: RNAME (K) = <TABLENAME> R <CJ> 

RACT(K) * <TABLENAME>A K 

KM£X « <TABLENAME>RS 

3) EXDATA* 'NUMBER <pN> ', STATE <pN> ', 'TEXT <pN> ' 

(used for external designators only.) 



46 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE M, '. A<';i .. n ; n. i. 



OUTPUT EXCfPTION SUUKOUTINt (53) 



INTER 



OUTPUT HAl/S » 
"TEXT <PN> . 
<DEFAUIT 
MESSAGE >;** 



ERROR 




NOTE : All MESSAGES Will BE 
SENT TO All DEVICES. 



OUTPUT HAWS * 
MEXT <PN> i 
•<TEXT 
CONSTANTS," 



CAll 

EVAl- INT .NAME 

$*<T>. JMAX'KMAX 



OUTPUT HAl/S* 



*TEXT <PN> *<DAT*>,* 



•IF ACT THEN DO; 

TEXT<p N> »<DATA>t' 



U DOFOR 1*1 TO<JMAX>, 
lf<ACT(Jj>TMEN OOi 
T£XT <PN> «<DATA(JJ>( W 



•TO* 





X ? >" 


i 








TV 




OUTPUT HAL/S* 
M CAll DATABANK 
1<SYSDEV>.<PN>)>" 








CAll 
EVA-ED 
R«<T> 




















1 










OUTPUT HAWS* 
w DO FOR K • 1 
TO<KMAX>," 










< 


' _ 






1 


' 


R 


5 


OUTPUT HAL/S* 




S 


OUTPUT ilAl/S« 








M CAU DATABANK (<AFDtK)>, < PN» t ENOi" 










1 


M CAIL DATABANK (< AFD(K)>,< PN>), END; END) " 


1 


w ENDi" 





2 


M CAll DATABANK (<AFD(K)>,<PN>);ENDiEND;END; w 


? 


M END»€NOi ** 


1 





w IP<TN>Ak THEN CALL DATABANK (<TN>ftif,<PN>); 
END; M 








\ 


1 


»*IF<TN>Ak THtN CAILDATAEANKKTN>R K ,<PN>), 
END. END." 






1 


2 


"lf<TN>Aic TMfNCAU DATABANK 1<TN>Rk.<PN>',, 
END; END; VOi" 






i 

























NEXT 



CHXR1 lOI 1 
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PRESfNT VALM OF (PVO) SUURUUTINE 



CAU 
fcVAl _ ED 



S»<T> 
SAFD(K)<<AfD(K)> 
STN«CTN> 




CALL EVAl_ED 
R«<T> 
RAFDtKl *<AfO(K|> 
RTl,*<TN> 




-ERRO 1 * 



KMAX * ) 
RAFD».) » <SYSTEM DEVICE> 
R *0 



OUTPUT MAUS * 
"DO FOR K« 1 TO<KMAX>* 



5 OUTPUT HAWS * 



M IF<STN>A K THEI* 



*|F<RTN>A K THEN 



I I M IF<STN>A K THEN IF<RTN>A K THEN* 



OUTPUT HAl/S* 



*CAU DATABANK |<SAFD(K)>.<PN>h* 



I M CAU DATABANK # ( <STN>R|c,<PN>h 



I 



OUTPUT HAl/S t 



*CAU DATABANK |<RAFD<*:)>.<PN>). 



*CAU DATABANK |**rN>RK #<*N>|, 



OUTPUT HAL/S * 
* ENDj" 



NEXT 



CHART 1 OF 1 
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5,3 Flowcharts 



5 • 3 . 1 Declaration Statements 
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INTER 



SJMPIL 0CCLAKA1ION MA1LMLN1S (17) 




OUtPUT HAL/S* 

* DfCLARE 

<NAME>D 



VEOUAl TOX" 






X. ? yf 




V 






CAIL 


w 


CONVERT.. 






NUMERIC 




OUTPUT HAL/S* 

• 








V 






OUTPUT HAWS * 








"INITIAL 






(<VALUE>);- 














1 


* 










OUTPUT HAl/S * 
* DECLARE 
<NAME>D 




OUtPUT UAL/S* 

"INITIAL (<OuANTlTY 

VALUE >) .- 
DECLARE < NAME > DIM 
INTEGER SINGLE 
INITIAL (<OUANTlTY 
DIMENSION >),- 



ERROR 



OUTPUT HAL/S * 

m i 
DECLARE 
<NAME> DIM, 
INTEGER 

SINGLE ;' 




ERROR 



CHART 1 Of 2 



SIMPLt DUXARATION STA1I MINTS (17) , (CONT.) 





OU1PUT HAl/St 

"DCClARf 

BOOLEAN 

<NAMf>D" 



OR 



Veouai Toy* 




%? jf 




V 








V 


OUTPUT HAl/S * 




OUTPUT HAL/S* 


"INITIAL 






|< STATE >);- 




• 












H 


^r % 


. \n 





OUTPUT MAl/S « 

- DECLARE 

<NAME>D" 



OUTPUT HAL/S * 
"CHARACTER | 
(<NOCHAR>) 
INITIAL KTEXT 
CONST >);- 




NEXT 




ERROR 



NOTE 1 : 

< NO. CHAR. >* NO. OF 
CHARACTERS IN THE 
TEXT CONSTANT. 

NOTE ?: 

< MAX. CHAR. >* MAX 
NO- Of CHARACTERS 
OBTAINED FROM GOAL 
STATEMENT. 



ERROR 



OUTPUT HAL/S* 
-CHARACTER 
(<MAX CHAR>);- 



NEXT 




ERROR 



ERROR 



CHART 2 01* 2 
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DECLARE NUMERIC LIST STATEMENT (18) 



ENTER 




OUTPUT MM/S« 
'DECLARE 

<NAME>D ARRAf - 




MUM * INTEGER 
NUMBER 



OUTPUT HAL/S * 
- KNUM» - 



OUTPUT HAL/S* 



• NEXT 



-ERROR 




ERROR 



NEXT 



OUTPUT HAl/S* 
••INITIAL i" 



OBTAIN NUMBER 

OR NUMBER PATTERN. 

CALL 

CONVERT. NUMERIC 



OUTPUT HAL/S* 
"<VALUE>" 




OUTPUT HAL/S • 



OUTPUT HAL/S * 




E?ROR 



NCXT 
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CHART T OF 1 



DECLARE QU \TtTY LIST Si AIEMENT (20) 



ENTER 




OUTPUT HAWS * 

*D?CtARE 
<NA«E- t> ARRAY 




NUM * INTEGER 
NUMBER 



OUTPUT HAt/S » 
*M<NUM>)" 




OUTPUT HAl/S « 

"jDEClARE 

<NAME> DIM 

ARRAY (<NUM>) 

INTEGER SINGLE;" 



NEXT 



- ERROR 



ERROR 



-ERROR 



ISSUE 
HAl/S • 



OUTPUT HAl/S < 

"<DU)>" 

K*K*I 




ISSUE HAl/S * 



ERROR 




OUTPUT HAl/S » 
"INITIAL ( * 



OBTAIN VAIUE 
AND DIMENSION 



USE AS 
FAUIT 



V(|c)* VAIUE, 
OjK)* DIMENSION 



OUTPUT HAl/S « 



K*KO 




OUTPUT HAl/S * 



OUTPUT HAl/S * 
W )|D£CIARE <N"»?"> 

DIM ARRAY (NUMt 

INTEGER SINGLE INITIAL ( M 



Kt I 



NT*t | : d(k) 15 THE NUMERICAL 
DESIGNATION Of THE 
DIMENSION. 



CHART T OF 1 
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DECLARE STATE LIST STATEMENT £2> 



ENTER 




NEXT 



OUTPUT HAL/S * 
-DECLARE 
<NAME>D 
ARRAY' 




NUM« 

INTEGER NO. 




ENTRIES'\N 



Output hal/s * 

*|<NUM>) 
BOOLEAN" 




OUTPUT HAL/S « 



T 



NEXT 



ERROR 



-ERROR 



I 



OUTPUT HAL/S 

W M 



1 



OUTPUT HAL/S » 
w INITIAL (" 



OBTAIN STATE 

OR 

USE FALSE 

AS DEFAULT 



I 



OUTPUT HAL/S * 
-(<STATE>r 



I 



K*K*1 




OUTPUT MAL/S ■ 

h|.n 




NEXT 



ERROR 



CHART 1 OF 1 
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DECLARE TEXT LIST STATEMENT (24) 



ENTER 




NEXT 



OUTPUT MAt/S * 
* OCCURS 
<NAME>D ARRAY* 




ERROR 



NUM> 

INTEGER NUMBER 

IC'l 



OUTPUT MAl/S" 
**{<NUM>)* t 




ERROR 



T«I 



T«0 



FETCH TEXT CONST 
USE AS DEFAULT 
IETTC(K)*<TEXT 
CONST. > NC(K)« 
NO OF CHARACT - 
ERSINTC(K) 




CHART 1 OF 2 
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DECLARC TEXT LIST STATEMENT (24) , (CONT,) 




NL> 
INTEGER NUMBER 




OUTPUT HAWS* 
-CHARACTER 

i<Nor 



-ERROR 



NO MAX 
(NC K ) 



S T 


«0 X.ts 

ft 


i 










i 


f 




\*/TPUT HAL/S 




OUTPUT HAL/S « 

-initial p<Tcin>v<Tci2i>\— 


,-.*<TC(NUM)V); M 














1 


' 












ERROR 



CHART 2 OF 2 
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DECLARE NUMERIC TABLE STATEMENT (19) 



ENTER 




NEXT 



OUTPUT HAl/S* 
"DECLARE 
<NAME>0 
ARRAY " 




-ERROR 



OUTPUT HAUS * 
**(<NR>,<NC>V" 



NR ■ 

INTEGER NUMBER 

OF COLUMNS 




ERROR 



NO 

INTEGER NUMBER 

OE COLUMNS 





NOTE: 

PASS I EXTRACTS COLUMN 
NAMES AND PLACES THEM 
IN THE SYMBOL TAatE- 
PASS ? DOES NOT USE THEM. 




CHART 1 OF 2 
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OECLARE NUMERIC TABLE STATEMENT (19) . (CONT.) 



1 



FETCH FUNCTION DESIGNATOR 
H>|K)*fUNCr DESlG- NO. 




FETCH NUMBER PATTERN 
USING AS DEFAULT. 
CAU CONVERT _ NUMERIC 
LET VAL IK.11 » 
VALUE Of NUMBER OR 
NUMERIC PATTERN, 




ERROR 



OUTPUT HAL /S * 

W 1NITIAI(<VAI(1.U>. <VAl(l,NC)>. 

<VAL(2.U>. <VAL|2,NC)>. 



<VAL(NR.U>. <VAl(NR.NC)>); 
DECLARE <NAMt>R ARRAY «NR>) INITIAL 

(<FD(n>.<FDU)>. <FOtNRl>); 

DECLARE <NAME>A ARRAY (<NR>| 
BOOLEAN INITIAL (ON);" 




ERROR 



NEXT 



CHART 2 OF 2 
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DECLARE QUANTITY TABLE STATEMENT (21) 



ENTER 




NEXT 



OUTPUT MAL/S « 
* DECLARE 
<NAME>0 
ARRAY" 




ERROR 



NR " 

INTEGER NUMBER 

OF COLUMNS 




- ERROR 



NC« 

INTEGER NUMBER 

OF COLUMNS 




-ERROR 



OUTPUT HAl/S* 
"(<NR>.<NC>)" 




NOTE: 

PASS 1 EXTRACTS COLUMN 
NAMES AND PLACES THEM 
IN THE SYMBOL TABLE. 
WVSS 7 DOES NOT USE THEM. 




CHART 1 OF 2 
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DECLARE QUANTITY TAIILE STATLMINT (21) , (CONT.) 



FETCH F UNCTlCN DESIGNATOR 
fD(K)«FUNCT. DESlG NO 



I •! 




ERROR 



FETCH QUANTITY AND 
DIMENSION VALUES, USING 
AS DEFAULT. 

VAl(K,L) * VALUE OF OUANT. 
DIM(K.L)* DIMENSION .>lO. 
OF QUANTITY. 




ERROR 



OUTPUT HAL/S* 

"INITIAL (<VAL( I ,}) > <VAl ( 1 , NCI >, 

<VAH2.1)> <VAL(2.NC)>, 



<VAL(NR,I)>.- -<VAL(NR,NC)>); 
DECLARE < NAME >R ARRAY (<NR>) INITIAL 

(<FD(H>.<FD12|>, <FD(NR)>); 

DECLARE <NAME>A ARRAY (<NR>) BOOLEAN 

INITIAL (ON); 
Df CLARE < NAME > DIM ARRAY t<NR>,<NC>) 
INTEGER SINGLE INITIAL 

i < DIM 1 1 , I ) >, < DIM ( 1 . 2)>.- <OIM(l,NC)>, 
<DIM(2.U>,<DIM(2.2|>. - <DIM|2,NC>, 

<DIM(NR,1)>,<DIM(NR,2)>, 

<DIM(NR.NC)>|; M 




ERROR 



NEXT 



CHART 2 Or 2 
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DECLARE STATE TABLE STATEMENT (23) 



ENTER 




OUTPUT HAt/S* 
"DECLARE 
<NAME>D 
ARRAY " 



NR • 

INTEGER NUMBER 

OF COLUMNS 



NC« 

INTEGER NUMBER 

Of 

COIUMNS 



NEXT 




ERROR 




ERROR 




ERROR 



OUTPUT HAWS • 
tt (<NR> 1 <NC>r l 




NOTE: 

PASS 1 EXTRACTS COLUMN 
NAMES AND PLACES THEM 
IN THE SYMBOL TABLE. 
PASS 7 DOES NOT USE THEM. 




CHART 1 OF 2 
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DECLARE STATE TABLE STATtMINT (2 J) . (CONTJ 



FITCH fUNvTON DESIGNATOR 
ffDUWUNCT. oeSlG. NO. 





i 






t*» 








i r 




1 


FETCH STATE. USING 

AS Of FAULT. 

LEI VAl (K.L) t >TATE 


! 


\ 


4 


..... 


A 

/l>NC V 


\ ? S~ 





K* K*l 




OUTPUT HAl/S • 

"&OOLEAN INITIAL 

(<VAL ( I . II >.<VAl[t.?)> , -<VAIO.NO>, 
<VAL(2.D>. <VAL(2.NC)>. 



<VAl(NR.M> <VAl ' NC)>; 

DKLARC <NAME >R ARRAY( <.Nk *iAL 

(<FD(U>.<FDUt>. ' i S \>\\ 

DECLARE <NAME>A ARRAY i<NR>| 
BOOLEAN INITIAL (ON)," 




ERROR 



NEXT 



CHART 2 OF 2 
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DECLARE TEXT TABLE STATEMENT (25) 



ENTER 




NEXT 



OUTtUT HAl/'« 
- DECLARE 
<NAME>D 
ARRAY" 




ERROR 



NR * 

INTEGER NUMBER 

Of ROWS 





ERROR 



NC* 

INTEGER NUMBER 

OF 

COLUMNS 




NOTE 

PASS I EXTRACTS COLUMN 
NAMES AND F LACES THEM 
IN THE SYMBOL TABLE. 
PASS 2 OOES NOT USE THEM. 




CHART 1 OF 2 
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DECLARE TEXT TABLE STATEMENT (2SMC0NT.) 



FETCH FUNCTION DESIGNATOR 
FDOO * FUNCTION DtSlG. NO. 



l« * 




VAl(K.L)' 

<TgXT CONSTANT > 
NC{K.l»« NUMBER OF 
CHARACTERS IN t.C. 



VAUK.l)*0 

NCfK.ll* 

<INUG€R NO.> 




ERROR 



l«t*t 




K>NR X.N 

t 

LET NC * MAXIMUM OF All NC (K.Ll 
OUTPUT MAl/S * 
-CHARACTER |NC > INlTlAl 

<VAl(l." ,<VAl|t.?)>. -VA10,NC)>, 

<VAl<2 .< <VAM2.NC)>, 

* • 

« * 

<VAl|N«.i;>, <VAl|NR t NC)»: 

DEC LARE< NAME >R ARRAY (<NR>) INITIAL 

(<f0(O>.<fDm>. <FD|NR)>); 

DECLARE <NAME*A ARRAY (<NR>J 
BOOLEAN INITIAL ION);" 




ERROR 
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CHAKT 2 Of 2 



THIS PAGE INTENTIONALLY- LEFT BLANK. 
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5.3.2 PROCEDURAL STATEMENTS 
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PROCEDURAL STATEMENT PREFIX - 

STEP NUMBER PRtriX (73). 

TIME PREFIX (80), AND VERIFY PREFIX (83) 

ENTER 



< oft **• > 


N 




JY 




OUTPUT HAt/S 


\ 


"STEP ' 

<NUMERAl>- 








'r 






ERROR 



OUTPUT HAl/S « 
"FlAG»0; 
DO WHIIEFIAG«0; 
CAU DATABANK |<FD>.<PN>); 
IF NUMBER <PN>> 1< TIM>*<AX> 
THEN FLAG* I; END f * 



ERROR 




■INC > FCOS - DEPENDENT INCREMENT OF TIME. 



CHART 1 OF 6 
68 



PROCEDURAL STATEMENT PREFIX (CONT.) 



ERROR 




NEXT 



C FORMULA > 


N 










jft 


If 




CALL 
RE L FORM 


CAU 




UMlTFORM 




1*0 


l r 


■ 






< 
1 


' 









T 


OUTPUT HAL/S 





**K«1 ; H 


t 


W K«U IF <ACT> THEN" 


2 


*DO FOR K * 1 TO < KMAX > ; 
IF <ACT(M>THElM w 



CHAR! 2 OF 6 
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RT 



OUTPUT HAL/S « 



fc IF NOT (< DATA ><ftFXRNAME>| 
THEN" 



W IF<RACT>THEN IF NOT 
(<DATA>CRFXRNAME>)THEN~ 



"IFCRACT (K)>THEN IF NOT 
(<OATA(Kl><RFXRNAME(Kt> 
THEN" 



HT OUTPUT HAj/S » 



'IFCILAC^THEN' 



*IF<llACT |IC)>THEN* 



UtT OUTPUT MA1/S « 



*IF<UIACT>THEN M 



2 W |F<ULACT(K)>THEN* 



OUTPUT HAL/S • 

W IF NOT (< DATA > ><LLNAME><Lf> 

< DATA > < <ULNAME > ) THEN - 




NEXT 



NOTEt: 

AN **END; " STATEMENT MUST BE 
INCLUDED AT THE END OF THE OF 
THE COMPLETE TRANSLATION OF 
THE GOAL STATEMENT. 



CHART 3 OF 6 



70 



PROCEDURAL STATEMENT PREFIX (CONT.J 
VERIFY PREflX (83) 



BEGIN 

VERIFY 

| CHART ?) 



CAU 
EVAL_ED 




CAU 

CONVERT TIME 

TV* I 



TV 



OUTPUT HAl/S * 



"FLAG «0;DO WHILE FLAG *0; w 



CAU 

RE I FORM 

1*0 



TV*0 



"START TIME * RUN_TIM6; FLAG'O; 

DO WHILE FLAG*0; 

IF RUN_TIME - START_TIME 2<TIM>TH£N DO; 

COND * FALSE , 

flag * ; : 

END;" 



OUTPUT HAL/S > 
-DO FOR Ml 
TO<KMAX>; M 



OUTPUT HAl/S* 



*^ALl DATABANK (<AFD(K) >,< PN >)*, 



*IF<TN>A K THEN CALL DATABANK (<TN> Rk # 
<PN>J; W 



CHART 4 OF 6 
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PROCEDURAL STATEMENT PREFIX (CONT.) 
VERIFY PREFIX [83) # (CONT.) 



RT 




OUTPUT hAl/S « 



W IF NOT |<EXDATAXRf> 
<RNAME>)THEN" 



W IF<RACT> THEN IF NOT «£XOATA> 
<Rf >< ftNAMf > \ THEN '* 



M IF < RACT ( K » > THEN If NOT 
(<EXDATAXRf XRMAME tlC)>) 
THEN" 



LIT OUTPUT HAWS * 



MF<LIACT>THEN' 



"IF<UACT (K)>TH£N* 



* 


ULT 


OUTPUT HAl/S * 







\ 


w lf <UtACT >THEN" 


2 


M IF<lHACT(K)>THfN M 



OUTPUT HAl/S « 

w |FNOT(<0ATA>i <IINAME> <tF> 
<OATA> &<ULNAME>)THEN" 



< T< 


' \- 


M 






t yr 








jfv 




1 


' 




OUTPUT HAL/S * 

tt K«0; 
eno; m 


OUTPUT HAl/S « 

"EXIT; 


ENC 


>; 








1 


' 









CHART 5 OF 6 



72 



PROCEDURAL STATEMENT PREFIX (CONCLUDED) 
VERIFY PREFIX (83) , (CONCLUDED) 



OU»PUT HAWS ■ 

M IFKi<KMAX>TH£NDO; 

COND'TRUE; 

HAG «l; 

END; 

ELSE REPEAT; 

end; 




ERROR 



OUTPUT HAL/S* 

"IFCONO* FALSE 
THEN DO;" 



OUTPUT HAl/S* 

M lFCOND* FALSE 

THEN DO." 



OUTPUT HAL/S* 

"IF COND'TRUE 
THEN DO; " 



CALL 

OUTPUT 

EXCEPTION 



output hal/s* 
m end; 
DO;- 



NEXT 



CHART 6 OF 6 
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ISSUE, SEND, OR APPLY ANALOG STATEMENT (40, 2) 



ENTER 




CAU 
EVAl-ED 



OUTPUT HAl/S * 
"00 FOR KM TO 

<KWlAX>; rt 



OUTPUT HAt/S » 



1 



CALL 
PVO 



NEXT 



-CALL DATABANK (<AFD(K)>.<PN>) , • 



m IF<TN>Ak THEN 
CALL DATABANK |<TN>R|c ,<PN>b' 



NOTE: THE RECEIVING EXTERNAL 
DESIGNATOR IS EVALUATED 
BEFORE THE SENDING 
ELEMENTS. 



I 



OUTPUT HAL/S* 
*ENDt" 



NEXT 



CHART 1 OF 2 
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ISSUE, SEND, OR APPLY ANALOG STATEMLN1 (40, 2),(CONT.) 



FETCH SENDING 
ELEMENT 




CAU 
EVAI.INT.NAME 

St<T> 
JMAX '<KMAX> 

J*<K> 




OUTPUT HAL/S* 

w DO FOR i*l TO 

<JMAX> t M 




OUTPUT HAL/S i 
w 0lMgN$lON <PN: 

<0IM(J|>; M 



OUTPUT HAL/S * 
**NUMBER <PN> « 

<0ATA(i)>, w 



OUTPUT HAL/S' 



CAll CONVERT. 

NUMERIC 

$«0 



OUTPUT HAL/S > 
" NUMBER <f>N>« 
< VALUE >t" 



'CALL OATABANK (<AFD(K)> .< PN> ) t ' 



I U *MF <TN>Ak THEN CALL DATABANK (<AFD(K)>,<PN>|," 



"lf<ACT>THEN CALL DATABANK I AFDIK|>,<PN»;** 



*lf<ACT>THEN " 
(f <TN>A K THEN CALL DATABANK «TN> R* ,<PN>|»" 



•IF <ACT(J)> THEN CAll DATABANK (< AFD|K)>,< PN>), 
K »K* 1 , END*" 



"1F<TN>R|(THEN |F<ACT(J1> THEN CAll DATABANK 
(<TN>Rk,<PN>); K«K»I, ENOi 



s»o 



OUTPUT HAl/S» 

*'DIMENSION<pm>« 

<OUANTlTY 

DlMENSlON>; 
NUMBER <p N >* 
<OUANTITY 

VALUE >," 




M*0 ^ N 



OUTPUT HAL/S- 
w 6N0j M 





OUTPUT HAL/S » 
K< K*l 



ERROR 



CHART 2 OF 2 
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SCT DISCRETE STAUMLNT (70) 




CAIL 
PVO 



NEXT 



note : 
multiple sender test 

AND EVALUATION) OF 
RECEIVER EXTERNAL 
DESIGNATOR ARE DONE 
FIRST. 



M«0 




f «0 



M« I 




ERROR 





NEXT 




OUTPUT HAl/S * 

WSTATE <PN> f 
ON,° 




CAU EVAl ED 



OUTPUT HMt/5 ■ 
"DO FOR K«l TO 

<KMAX>j rt 



OUTPUT HAL/S > 




OUTPUT HAUS * 
-STATE <pN> « 

Off?" 



1 



OUTPUT HAl/S « 

«$TATE <pN> . 

NOT<$TA*E <pN> ) ( ' 



W CAU DATABANK (<AF0(K)> t <PN>h" 



M lf<TN>A(c THE* 
DATABANK <<TN>k PN>),« 



[OUTPUT HAi/St 
I "END," 



76 



<*> 



ERROR 



CHART lOf 1 



SET DISCRETE STATEMENT (70) . {CONT.J 



9 



CAU EVA! to 

t«<T> 



<5> 



<£> 



OUTPUT HAWS * 
n>^ *0« KM TO 




CAIL_EVAI 

tNT_ ^>M£ 

S* > 

JMAX * < KMAA > 




1 



OU T ^UT HAL/S i 
"DO FOR JO 
TO 
<JMAX>," 



OUTPUT HAl/S» 
<0ataU)>." 




M. ^ N 



'X 



OL'Tr^jl/HAL/S* 
-ST\*« ON> - 

t-MiSTA.E <pNN rl 



<t> 



s«o 



T 



OUTPUT HAl/S* 

-SIAU <pN> . 

<STATg VALUE >:" 



© 



CHART 2 OF 3 
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9 



SET OlSCftETC STATEMENT (70) . (CONT.) 

i 



i 



Q 



s 


R 


OUTPUT HAWS * 








"CAU DATABANK 
|<AfD(K)>.<PN>)i" 





i 


**IF<TN>A K THEN CALL DATABANK 
(<TN>R K ,<PN>1;** 


1 





**lf<ACT>TM£N CALL DATABANK 
(<AFD(K)>.<PN>),** 


1 


1 


w lf<ACT> THEN »F<TN>A K THEN CALL 
DATABANK (<TN> R| C .<PN>); M 


2 





"If <ACT ( J)> THEN CALL DATABANK 
KAFD(K)>.<PN>|; K*K*t, END." 


2 


1 


"IF<TN>R K THEN lF<ACT(J)>THEN CAU 
DATABANK <<TN>R K ,<F*N>| ; K«K*1 ; 
END;" 





Output i«al/s * 

-K«K*li- 


I m 









CALL 

CONVERT TIME 

F»1 



OUTPUT HAL/S * 
"VtAlT FOR 
<TIM> ; " 



GO TO 




CHART 1 



NEXT 



CHART 3 Of J 
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RECORD DATA ST AU ML NT (61) 



ENTE* 



MSPLA1T 
fRINT'OR 



-NEX1 



\VALUE Of V 


N 








V 


CAll 
PVO 




Mil 
MMAX* 

NUMBER OF 
MISi 



NEXT 



© 



NOTE *- RECEIVER ELEMENT 
EVALUATED BEFORE 
SENDING ELEMENTS. 




CALL EVAL.ED 

ft*<T> 

LMAX* 

<KMAX> 



ftAFD|l)» 
<SYSTEM DEV1CES> 
LMAX 1 1 
ft*0 



FETCH 
SENDING 
ELEMENT 




CALL EVAl - INT .NAME 
S*<T> 
JAMX«KMAX> 
J*<K> 





S«0 



OUTPUT HAL/S* 
-DO FOR JO 
TO<JMAX>; M 



OUTPUT MAL/S * 
w TEXT< PN> t 

<DATA(i)>;- 



S*0 



OUTPUT HAL/S* 
"TEXT <PN> . 

<TEXT CONSTANT >>" 



OL»TPUT HAl/S » 
- TEXT <PN> « 



© 



CHART 1 OF 2 
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RECORD DATA STATEMENT (61) .(CONT.) 



a 



i 



OUTPUT HAl/S * 
-DOKK 1*1 TO 
<U*AX>;" 



I 



OUTPUT HAl/$» 



"CAU DATABANK (<AFD(L)> # <PN>i; M 



I & "If <TN>A t THEN CAU DATABANK (<TN>R la <PN>l s 



*IF<ACT>THEN CAIL DATABANK t<AFD(U>.<PN» ; ** 



1 J %h IF<ACT>THEN IF <TN>A t THEM 
CAU DATABANK (<TN>ft l .<PN>| , 



B W 1F<ACT(J I ^THEN CAIL DATABANK 
IAFDIU>.<PN>>," 



1 g "IF<:TN>Ai THEN IF <ACT(J)> THEN 
CAll DATABANK l<TN>Ri.<PV>h" 



< s 


»* >5 


1 








1 


t 


OUTPUT HAl/S * 
-CNDi- 




\ 




1 


<JMAX> 




M>M*1 












1 


* 










ERROR 



CHART 2 OF 2 
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AVERAGE STATEMENT (4) 




NEXT 



NUMi 

< INTEGER 
NUMBER 




ERROR 



CAU 

EVAl-JNT-NAME 

R*<T> 




OUTPUT KAl/S * 
"l*<ACT>TMEN M 



OUTPU1 KAl'S* 
*»00FOR KM TO 
<KMAX>; 
IF<ACT(K)>THEN' 



^ 3 




i 




N 


OUTPUT MAl/S * 
h IT<TN>Ak 
THEN- 








1 


r 




OUTPUT HAWS * 
*DO 

av*o; 

DO FOR 1*1 
TO<NUM> ;" 





CHART 1 OF 2 
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AVERAGE STATEMENT (4), (CONX) 




OUTPUT HAL/S * 
"CALL DATABANK 
1<TN>R*.<PN>);* 



OUTPUT HAL/S* 
*»AV «AV • NQ.<PN> ; 

<OATA> > AV/«NUM> ; 
END;" 



OUTPUT HAl/S • 
"CALL DATABANK 
(<AFD(K)>,<PN>Jr 



ERROR 




NEXT 



CHART 2 OF 2 
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READ I'KOCCDURAL STAUMLNT (60) 



*0R ^MEASURE >^ NE XT 

? 




ERROR 







CAU 

EVAl - INT NAME 

R*<T> 








1' 




s 


R 


OUTPUT HAt/S * 








"CAll DATABANK 1<A*D(U>.< PN>);" 





1 


"1F<ACT>THEN DO* 

CAU DATABANK |<AFD(U>, <PN> );" 





2 


"DO FOR K * 1 TO <KMAX> : 

IF<ACT(K)> THEN DO; 

CAll DATABANK (<AFD(K)>,<PN> ; '' 


1 





*MF<TN> A| THEN DO; 

CAll DATABANK (<TN> Rj ,<PN>h M 


1 


X 


"If <TN>A) THEN If <ACT> THEN DO; 
CAll DATABANK t<TN> R) <PN> J; " 


\ 


7 


M DO FOR K « 1 TO <KMAX> : 

»F<TN>A K THEN IF<ACT(K)> THEN DO: 

CAU DATABANK (<TN>Rk,<PN>|;** 


1 


f 


NAME <TYPE> 


OUTPUT HAl/S» 





NUMERIC 


*<DATA>* NUMBER <pjg> ; " 


1 


QUANTITY 


« <DATA> » NUMBER <p N >* " 
- <DlM>t DIMENSION < PN > j- 


? 


S 


\ 


*<DATA>« STATE<p N > t ** 


3 
i 




"<DATA> «TEXT<p N > i" 


1 


' 


> 


* ! 


OUTPUT HAl/S * 





| 


0/1 


1 


1 "END;" 


o/» 


7 


"ENDj"END; " 


1 


o ! 


i **ENDi* 




ERROR 



84 
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RtqVCST KtYtiOAKD STATtMLNT (66) 



CAtl EVAl_ INT. NAME 

««<T> 

REC*<*)ATA> 

RACT «<ACT> 

RECOlM *<DIM> 



I 



OUTPUT HAl/S* 
"DO FOR Ml 
TO<KMAX> ; * 





CAU EVAl.INT- NAME. 

S* <T>,iMAX*<KMAX>J«<K> 

SEN«<OATA>;SACT «<ACT> 



OUTPUT MAl/S » 
"TEXT <PN> « 



OUTPUT HAL/S » 



*TEXT< PN >«<SEN> ;< 



w lF<SACT> THEN OOi TEXT <PN> » 
<SEN(J)>;" 



**0OfOR J«1 TO<iMAX>, 
If <SACT|J)>THtU DO; 
TEXT <PN > *<SEN(J|>; * 



OUTPUT MAl/S « 

MEXT <PN> . 
<TEXT CONSTANT > 



S»0 



OUTPUT HAi/S * 
"CONTROl<p N > *<OUTPUT>; 

CAU 

DATABANK (<FD>.<PN >) i " 



ss 



P£ 



REQUEST KEYBOARD STATEMENT (66) , (CONT.) 



® 



i 



OUTPUT HAl/S » 



"lf<RACT> THEN DO;' 



'|F<RACT(J)>THEN DO:** 



OUTPUT HAWS* 
"CONTROl *<INPUT> ; 
CALl DATABANK 
(<FD>,<PN>| t " 







i 


NAME<TYPg> 


OUTPUT MAL/S* 





NUMERIC 


*<RECtK)>* NUMBER <p N > ." 


\ 


QUANTITY 


"<REClK)>* NUMBER <f > N> ;" 
M <R£COIM>* DIMENSION <p N > ; M 


2 


STATE 


"<REC(K1> * STATE <PN> ," 


3 


TEXT 


W <REC(K)> *TEXT <PN> -- 



\ ? y^ 


1 




Y 


OUTPUT HAl/S* 
*END; M 








1 


> 








S OUTPUT MAl/S* 









1 *END; W 




2 ****•!, CNDiFND* w 






OUTPUT HAl/S t 




ERROR 



CHART 2 OF 2 

87 



"DCLAY" PROCLDURAL S1AUMLNT (26) 



ENTER 




■NEXT 



CALL 

CONVERT. TIME 

TVM 



TV*0 




ERROR 







XT, 










T 




\ 


r 






CALL LIMFORM 
L» 1 




CALL REIFORM 
L*0 


















1 


' 




TV 


OUTPUT HAL /$ * 







"HAG'O, 

DO WHILE FLAG*0, M 




! 


- START - TIME * RUN _ TIME t 

FLAG *0t 

DO WHILE FLAG >0 t 
IF RUN. TIME-START. TlM>XTlM> 
THEN FLAG «0 j u 





3 



OUTPUT HAL/S ■ 
"DOFOR K«l 
TO KMAX , M 



OUTPUT HAL/S v 
-WAIT 
TIM i* 



NLXT 



NCXt 



CHART 1 OF 2 
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M OCLAY M PROCEDURAL S1A1CMEN1 (26) , (CONT.) 





" 


T 


OUTPUT HAL/S t 





"CAU DATABANK |<AfD(K|>.<PN>) ; " 


1 


"IF <TN>A(c THEN CALL DATABANK (<TN>R(C,< PN>;" 





RT 


OUTPUT HAL/S* 




ILT 


OUTPUT HAL/S * 





"IF NOT (<fcXDATA> <RF> <RNAME> ) THEN " 







1 


"IF<*RACT> THEN IF NOT (<EXDATA>,< RF>, 
<RNAME(K)>) THEN" 


1 


W IF <LLACT> THEN" 


2 


"IF<UACT|K1> THEN" 


2 


"IF<RACT{K)> THEN IF NOT ( <EXDATA>, <RF>, 
<RNAME(K)>) THEN" 




u 








ULT 


OUTPUT HAl/S « 




J 









1 


M IF<UtACT> THEN" 


\ 


2 


-IF <ULACT(K)> THEN" 






i 






OUTPUT HAt/S t 

"IF NOT (<EXDATA> » <LLAM£>. 

<IF> # < EXOATA> £ < ULNAM£> ) 

THEN" 










' 


* 











OUTPUT HAL/S' 
"EXIT, 
END," 




OUTPUT HAL/5* 
W K*0, 
END," 












1 


' 






OUTPUT HAL/S- 
M IF KKKMAa> 
THEN FLAGOJLSE 
REPEAT; END- 






ERROR 



CHART 2 OF 2 
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w CO T0 M PROCEDURAL STATEMENT (34) 



ENTER 




NEXT 



>5nw 

\arei 


(THINSiL. 




>EAT >* 
t 




OUTPUT HAL /S' 
"IF RPTACT RS TH£N 

00; 10C'<SN>; 
CAlt HUSH , 
END;" 


\ 








\ 


1 




OUTPUT HAUS* 
"GO TO STEP. 
<SN> ( M 






NEXT 



ROR 



CHART 1 OF 1 
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-SW PROCEDURAL ST AltMtNT (74) 



ENTER 




NEXT 



OUTPUT t<Al/S> 

M CONTROl <fN> *< NUMBER OF CAUS>; 

CAU DATABANK (0,<PN>|;~ 




NOTE: 

THE NUMBER OF SUBSEQUENT 
CAUS TO FD* IS DETERMINED 
m PASS I AND IS EQUAl TO THE 
NUMBER Of RESTART lABElS ♦!. 



SN*STE» 
NUMBER 



I 



OUTPUT HAl/S • 



"UCT 



'PROGRAM HAS STOPPED 



<PN> 
ATSI&NO<SN> INDICATE RESTART AT/ 



OlffPUT HAL'S* 

•TEXT <rt|> « PROGRAM HAS STOPPED A? 

UNNUMBERED STATEMENT INDICATE 
RESTART AT ^ » 



OUTPUT HAt/S • 

*CAU DATABANK iO.<PN>)»" 



I 



Rl * NO OF RESTART I ABE IS 
RP • A »RAY Of RESTAflT POINTS 

INDICATED IN GOAL STATEMENT 
K - I 



OUTPUT HAl ,1 
ME**<PN> «*S.<RP|Kt>% 
CAll I 4TABANK (0,<PN>h ' 




CHART 1 0F 2 
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"Stor" procedural statement p4) . codntj 



i 



OUTPUT HAUS * 

"AGAIN: CONTROi <PN> «< INPUT R£STARTlABa> ; 
CAU DATABANK (0.<PN>| ; 
IOC*0| 
CAU FlUSH;/* BESETS AU tEPEAT COUNTERS V" 



I 





K>l 












1' 


output hai/s* 

-0 TfXT * "S. <ftP|K|> * THEN 
GOK>S.<ftP(Kl> s - 






i 




J 




K*K«1 






r k> 


Bl > 


yN 


»■ 



OUTPUT HAL /$« 

•^ONrea <FN> - iw { 

CAU DATABANK |0.<PN» , 
GO TO AGAIN," 







NEKT 



CHART 2 OF 2 
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^TERMINATE" 

PROCEDURAL STATEMENT 

(7B) 




*KME*T 



OUTPUT HAl/S * 

*S£T 
TERM.SY$T <PN > : 
RETURN; " 



OUTPUT HAL'S* 
* RETURN;" 




-ERROR 



NEXT 



NOTE: TERafU$Y$T <PN> IS AN ARRAY OF DEClARED 
ROOLEANS.ONE BIT PER PROGRAM. 
IT'S SIZE IS DETERMINED BY THE MAXIMUM 
LENGTH OF PROGRAMS ALLOWED. 



CHART 1 OF 1 
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"RtTtAr* PROCEDURAL STATEMtNT (64) 



ENTER 




EVALUATE REPEAT GROUP: 
RSN* NUMBER Of THIS 

REPEAT INSTRUCTION* 
N * NUMBER Of ITERATIONS 



NOTE*: 
All THE REPEAT STATEMENTS 
IN A GOAl PROGRAM ARE 
ASSIGNED A NUMBER ON A 
SEQUENTIAL BASIS. 



OUTPUT MAl/S * 
"RPT » RPT • I , 
RPTACT <ftSN> *ON, 

SAVE R p T *RS, 
RS *<RSN> i 
RPTCTR RS «<N>i 
CO TO HEA0 R4 
RETURN. LAKl<RSN>: 
RS « SAV RpT ; 
" RPT * RPT * I . " 




INCREMENT REPEAT NESTING DEPTH 

ACTIVATE REPEAT GROUP 

SAVE OlD REPEAT STATEMENT NUMBER 

ESTABLISH NEW REPEAT STATEMENT NUMBER 

ESTABLISH NUMBER OF ITERATIONS 

TRANSFER CONTROL TO REPEAT GROUP 

RETURN TO THIS LA3EI 

RESTORE OLD REPEAT STATEMENT NUMBER 

DECREMENT REPEAT NESTING DEPTH 



ERROR 



•AS DETERMINED IN THE 
REPEAT ARRAY OF PASS I 
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ASSIGN STATEMENT (3) 




NW 




KICK INTERNAL 

NAME* CAU EVAl- 

INI. NAME. 

*»<T> 

REC »<OATA> 

ftACT ><ACT> 




FETCH INTERNAL 
NAME.CAll EVAL-. 
INT. NAME. 
S»<T> SEN*<DATA> 
SACT><ACT> 



S*0 

$£N* 

< STATE VALUE> 



£ s 


.* \N 






1 X 






jft 








i\n 


1 


J 


? V^ 


Jt 


f 




OUTPUT HAL/S* 
"DOFORK'I TO 
<KMAX> ; - 


' 














— „ 



/<>, 



OUTPUT NAL/S* 
M tF«SACT(K1>) 
THEN" 



V 


'/ 




1 




t 


OUTPUT KAL/S* 
*tf |<RACT|^>) 
THEN- 










V 




OUTPUT tvAi/S* 
*<REC|JC>> * 
<SENIK'> : - 





x^ s»a ^ 


^ 






N. ? > 




|t 






> N 






1 


r 






r 






1 


OUTPUT 1 

•** 


HAL'S* 
ID/- 








i 


' 










ERROR 



NEXT 
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U1 EQUAL STATEMENT (42) 



ENTER 




NEXT 



FETCH INTERNAL NAME 
CAU EVAL. INT. NAME 
R«<T> 




-ERROR 



FETCH NUMERIC FORMULA 
CALL CVAL-. NUMFORM 







* 


R 


OUTPUT HAL/S* 







1 


."IF<ACT>THEN- 


? 


-00 FOR ICO TO<KMAX>.|FNOT<ACT(K}>; 
THEN EXIT ELSE DO; 




Q 



I 



OUTPUT HAl/S* 
*IF <TNA(K)> 
A <l> THEN" 




OUTPUT HAL/S* 
"DO;- 




OUTPUT HAL/S » 

M <r>ATA{R)>t 

<Nf|K)>; w 



OUTPUT HAL/S* 
w EN0 5 - 




OUTPUT HAL/5* 
w END s END," 




• ERROR 



NEXT 



<II\KI I Ol I 



CONCURRENT STATEMENT (IS) 




TVO 

FETCH TIME 

VALUE. CALL 

CONVERT. TIME 



TV*0 




NEXT 



PROGN* PROGRAM 
NAME II REVISION LABEL. 
NUMi NUMBER ASSOC. 
WITH TASK TO BE GEN- 
ERATED (XIATOR SUPPLIED! 




OUTPUT HAl/S» 
"SCHEDULE 
TASK<NUM>;" 



GO TO CHART 2 
FOR CONCURRENTLY 
DISPLAY. PRINT, 
RECORD 




-ERROR 



GO TO CHART 3 

TOR CONCURRENTLY 

VERIFY 



CREATE THE FOLLOWING TASK TO BE INCORPORATED 

INTO THE GOAL . MASTER - PROGRAM : 

OUTPUT HAL/S* 

-TASK < NUM > : TASK ; RESET TERM * SYST <NUM> ; 

BACK : Tq i0 » RUNTIME ; CALL G<PROGN>; " 

IP TERM. SYST <NUM> THE DO* RESET TERM^SYST <NUM> , 

RETURN; ENDt" 




OUTPUT HAL/S* 
"WAIT UNTIL (T 0lD »<TIM»; GO TO BACK; CLOSE; 




Output hal ;« 

"CLOSE; - 



ERROR 



NEXT 
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CONCURRENT STATCMCNT (IS) , (CONT.) 




(CONCURRENTLY DISPLAY} 



NUM * NUMBER ASSOC 
WITH TASK TO BE 
GENERATED. 



ERROR 



OUTPUT HAL/S* 
"SCHEDULE 
TASK <NUM> , m 



CREATE THE FOLLOWING TASK TO BE INCORPORATED INTO 

THE COAL - MASTER. PROGRAM : 

OUTPUT HAL/S* 

"TASK <NUM> : TASK, RESET TERM- SYST< NUM >, 

BACK : T QlD * RUNTIME ; ** 



CALL PVO 



OUTPUT HAL/S * 

"If TERM.SYST <NUM> TH£N DO; RESET TERM_SYST <NUM> , 

RETURN; END;** 




• OUTPUT HAL/S * 
"WAIT UNTU{T OL0 • <TlM>J.GOTO BACK, CLOSE; 




OUTPUT HAL/S* 
"CLOSE;" 



ERROR 
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UIAKI .Ml < 



CONCURRENT STATEMENT (15) , (CONT.) 



ENTER FROM 
CHART I 



(CONCURRENTS VERIFY | 



NUM * NUMBER 
ASSOCIATED WITH TASK 
TO BE GENERATED. 



OUTPUT HAWS * 
"SCHEDULE 
TASK <NUM>." 



CREATE THE FOltOwiNG TASK TO BE INCORPORATED INTO 

THE GOAL MASTER. PROGRAM: 

OUTPUT HAL/S* 

-TASK <NUM>: TASK; RESET TERM. SY5T< NuM >; 

BACK: Iqq RUNTIME; m 



IIMIT 





v ruw 


7 jT 

ft 




1 


r 






CAIL 

LIMIT FORM 

1*1 




CALL 

RELFORM 

l»0 


i 
i 




< 












f 












OUTPUT HAL/S * 
w DO FOR K » 1 
TO<KMAX>, " 










1 


' 






T 


OUTPUT HAWS* 







w CALl DATABANK (<AfD(K)>,<PN>)i M 




1 


M IE<TN>A|( THEN CALt DATABANK (<TN>R K ,<PN>," 
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CONCURRENT STATEMENT (15) , (CONT.) 



RT 




OUTPUT HAl/S « 



"IFNOT |<EXOATA> RF>,< RNAME» THEN" 



M lf <RACT> THEN IF NOT |<EXDATA>.<RF>.* 
<RNAME|K)>) THEN" 



W IF<RACT(K)> THEN IF NOT (<EXDAT.*>,<RF >. 
<RNAME(K») THEN" 





w 




I IT 


OUTPUT HAl/S* 











1 


M IF<ltACT>THEN" 




2 


M tf<UACT(K)>THEN" 



-0- 



S T 


An 






Y 




1 


r 


OUTPUT HAL/S* 
"EXIT* 
IN0| M 




OUTPUT HAt/S* 
W K*0, 
INDi" 























ULT 



OUTPUT HAL/S > 



I M ir<UlACT> THEN* 



2j w IF<UtACT(K)>THEN* 



OUTPUT HAl/S* 

M IF NOT (<EXOATA> £ <LIAME>. 

<IF>.< EXDATA>« <ULNAME>i 

Tm:n m 
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CONCURRENT STATEMENT (15) , (CONT.) 



OUTPUT HAL/S* 
"IF K NOT* 
<KMAX> 
THEN DO," 




ERROR 



Output haws* 

"if term. syst <num > then dojreset term. syst <num> t 

return; end; " 



S TV 


.1 \N 








IV 




\ 


r 




OUTPUT HAWS' 
"ClOSEi" 


OUTPUT HAWS* 

*WAIT UNTll (ToiO ♦<HM»f GO TO BACK, ClOSEi" 












< 


r 










ERROR 



NEXT 
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RUCA&t CONCURRENT STATEMENT (63* 




FETCH STEP NO. FROM 
RELEASE STATEMENT 
IET PROGN ' PROCESS 
NUMBER OF TASK 
AS50CIATEO WITH 
STEP NO. THIS IS 
DETERMINED FROM THE 
PROCES* ARRAY CREATED 
IN PASS I . 



OUTPU* HAL/S • 
-TERMINATE 
TASK PROCN , 
SET TERM. SYS 
<PROGN>'" 




FROM PROCESS ARRAY 
GENERATE AN ARRAY 
OF CONCURRENT 
STATEMENT PROCESS 
NUMBERS ASSOCIATED 
WITH THE PRESENT PN. 
CALl THIS ARRAY *ANUM 
LET IT'S LENGTH BE L 



K»l 



OUTPUT HAL/S* 
"TERMINATE 

TASK<ANUM K > t 

SET TERM. SYS 



<ANUM K > ' 





ERROR 
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PERFORM PROGRAM STATEMENT (55) 




-NEW 



PROGN * PROGRAM NAME (I REVISION lARR (IE APPUCARU I 
NUM * PROCESS NUMBER ASSOCIATED WITH PROGRAM 
IROM PASS I. 



OUTPUT HAL /S * 

"CONT«Ot * <PUSH INT ENVIRONMENT^ 

CAll DATABANK (1.<PN>|. /'SAVE MT ENVIRONMENT V 

KSET Ufttt.Sn <NU *>s 

CAll C <PROGN> : 

CONTROl *<POP. INT. ENVIRONMENT > 

CAll DATAftANK ( I .<PN> ) ; */RESTORE INT ENVIRONMENT * 

» TERM. SYS <num> THcN DO . 

RESET TERM. SYS <muc&> • 

SET TERM. SYS <NU»>* 

RETURN: END ** 




ERROR 



NEM 
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rcnroRU subkouiini statcmcni (s*j 



i 



CAU OAtAftANK(l.<fN>h 
S*tf$tf INT. ENtfltONitSENT 
CMl C- <SUBt>|<C>| - 





URACT 

UMAX* NO. OF 



OUTPUT HA1/S* 
* ASSIGN J- 



I 



output hai/s* 
*G<rAt lc >- 




OUTmtHAL/S- 



0UTPUTHA1/S* 



OUTPUT HAWS* 



T 



OUTPUT HAl/S* 

"CONTROL <*«>* <POP INT CNVWONMENT> ; 

If TERM. SYST <PN> TI€N OO; 

H6SCT TERM.SYST <m>; RETUtN, END; 




NEXT 



CHART 1 OT t 
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WHCN INTERRUPT STA* ...i£NT (84) 



OUTPUT MAl/S * 

If NOT C THEN |>0; a 

CONTROL <,>*!> ^ENABLE INTERRUPTS 

NUwaER <Plsr> *<FD>.- 

CAlt DATABANK ( I .<PN> ) : ENO , 



SEARCH LIST WHICH RELATES FO TO 
INTERRUPT NUMBERS: 
IN * INTERRUPT NUMBER 





NEXT 



FD •FUNCTION 

DESIGNATOR 

NUMBER 




ERROR 



SN*<STEPNO.> 
SN*0 



I 



OUTPUT HAL/S* 
"ENVIRON 
(2,<IN>|*<NS>; 




NS 'NUMBER OF 
SUBROUTINES 



OUTPUT HAl/S* 
"ENVIRON 
<2.<IN>|*<N$> S ' 




SN*0 
<SUP NUMBER > 



LET CN » 

CASE NUMBER 

ASSOCIATED WITH 

STEP NUMBER 



E 




ERROR 



OUTPUT HAWS • 
"ENVIRON 
(3,<IN>J*<CN>;END» i 




NOTE!: 

A IIST IS AVAIIABIE IN 
PASS 7 WHICH RELATES 
FUNCTION DESIGNATOR 
NUMBERS TO INTERRUPT 
NUMBERS. 



NOTE 2: 

PASS I DECLARES 
ENVIRON |:.<N>) 
WHERE N IS THE 
NUMBER OF 
INTERRUPTS. 



ERROR 



NEXT 



i n*" 
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DISABLE INTERRUPT STATEMENT (28) 




NOT 



SEARCH tlST 
GENERATED IN PASS I 
TO FIND INT. $0 
ASSOC. WITH SN 
FD * FUNCTION DEStG. NO. 



I 



OUTPUT HAl/S * 
CONTROt<p N >«<Dl$/BlE>; 
NUMBER<PN>*<fD>; 
CALL DATABANK (1,<PN>h" 




OUTPUT HAL/S * 

-CONTROL * <PUSH INT UPT 
ENVIRONMENT^ 

CAU DATABANK (I .<PN> ),• 



ERROR 



NEXT 
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activate: table statement (i| 




NEXT 



TN * 
<TA81E NAME> 




num*<name> 



JL 



OUTPUT HAL'S* 

-<IN>A <NUM> 

■ ON s - 





NUM*< INTEGER 

WUM8€R> 



SEARCH 
SYMBOL TABIC 
llST <TN> R TO 
FIND IOCATION 

OF<F0> 
NUM* LOCATION 



RS*< TABLE 

NAME>R$. 



Ol«TRUT HAl/S * 
"DO K» K * 1 

TO<RS>* 
<TN>Aic »ONj 
CNOj- 



ACTIVATE 

ALL ROWS 



ERROR 
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INHIBIT TABLE STATEMENT (37) 




NEXT 



TN * 
< TABLE NAME> 





NUM*<lNTECER 
NUMBER? 



SEARCH 

SYMBOL TABLE 

USK1N>R TO 

FIND LOCATION 

Of<FD> 

NUM* LOCATION 



OUTPUT MAI /S* 
"DO FOR K«» 

TO<RS>; 
<TN>A K «OPFj 
END,** 



DEACTIVATE 
All ROWS 



ERROR 
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5.3.3 SYSTEM STATEMENTS 
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INTER 



SYS1CM STATEMENTS GROUP 



KEYWORD 


DIAGNOSIS 


BEGIN DATABANK 


ERROR 


BEGIN MACRO 


IGNORE 


END DATABANK 


ERROR 


END MACRO 


IGNORE 


UAVE 


ERROR 


RESUME 


ERROR 


IfcE 


ERROR 


WEE 


ERROR 


SPECIFY 


ERROR 


EXPAND 


IGNORE 


REPIACE 


IGNORE 




STORE NAME AS 
<T£MP NAME> 
J>0 




STORE 
PARAMETER 
AS<PAR(j)> 




v^kginVn 

^program'v^- 



STORE J 
AS UM 



ERROR 




STORE NAME 
AND REVISION 

LABEi AS 
<TEMP NAM£> 



ERROR 




OUTPUT MAl/S * 

"G<TEmP NA*/E> t 
PROCEDURE (C) ASSIGN 
(G<PAR(U>»G<PAR(2)>. M 
G<PAR(3>>.— G<PARtUM)>)j 



OUTPUT HAt/S » 

"G<«MPNAME>: 
PROCEDURE |C)/ M 



OUTPUT MAL/S* 
n G<TCMP NAM£>: 
PROCEDURE 
EXCLUSIVE," 



u?xr 



© 



SYSTEM STATEMENTS GROUP , (CC.ilT.) 




ASSEMBLE PROCEDURE 
AS SPECIFIED IN 
FIGURE 3'3. 



OUTPUT MAt/S * 
-ClOSEj" 




READ GOAl 
COMMENT AND 
STORE AS:CMNT 



OUTPUT HAl/S « 
-/•^CMNT^/** 



-ERROR 



NEXT 
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5.4 Output Processor 

The output processor shall be an integral part of the 
Translator. It performs its role last in the translation 
sequence. This role shall consist of two parts. First, it 
assembles the GOAL_MASTER_PROGRAM according to the format 
specified in Section 3.1 and 3.2 and depicted in Figures 3-2 
and 3-3. Secondly, it generates an output file of HAL/S source 
whose format is compatible with the machine upon which HAL/S 
compilation is to take place. It also shall generate support- 
ing outputs consisting of error messages, block summaries, 
program layouts, etc. 
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6.0 EXECUTIVE SUPPORT STRUCTURE 

6.1 Introduction 

Executive Support Structure is defined as the software 
support system required in the onboard Shuttle computers in 
order to permit the full potential of GOAL-in-HAL to be 
realized. 



6.2 Recommended Approach 

As set forth in Section 3.0 of the Specification , the 
GOAL_MASTER_PROGRAM contains all software and data required 
to execute.^ The only external software required will be the 
FCOS. By design , the output of the translator is an assembly 
of HAL/S code which contains not only translations of each 
of the individual GOAL programs including all relevant data* 
bank information, but also the procedure DATABANK used for 
interpreting function designator information in the Flight 
Computer Operating System (FCOS) environment. The output of 
the translator is submitted to the HAL/S compiler like any 
other HAL/S applications program. The result is object code 
for the flight computer. The GOAL Master Program is self-suffi- 
cient and, by design, requires no executive support structure 
other than the FCOS. 
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7.0 IMPLEMENTATION, VERIFICATION/ AND 
DOCUMENTATION REQUIREMENTS 



This section provides a plan and a recommended sequence oi 
steps by which the GOAL-to-FAL Translator can be implemented, 
documented, verified, maintained, and placed into operational 
use. This is accomplished by presenting the topic in three 
sequential groupings. These groupings are implementation, 
verification, and operation. In each grouping, the pertinent 
documents are identified, and then they are set forth again 
in Section 7.4. Section 7.5 is a suggested schedule for 
the Translator. 



7.1 Implementation 

Two key decisions have to be part of the implementation 
phase of the GOAL-to-HAL Translator. The first of these is 
the choice o^ the host machine upon which the Translator is 
to be operated. Technical considerations involved in this 
choice include the host machine for the KSC GOAL compiler, 
the destination of the HAL/S source output, and the requirements 
for utility software, peripherals, operating modes, and output 
writer capability. 

The second key decision involves the language in which 
the Translator is to be written. This decision could affect 
the host machine decision. For example, Fortran 4 will vun 
on almost any system, but XPL (which is a qood media for writing 
translators) is only supported on the IBM-360 and Univac 1108. 

To the present document, the Translator Specification , 
must be added a Host Machine and Language Addendum which will 
specify the interface between the Translator, its language, 
and the host machine. This document can be brief, but it 
should deal with the interface questions, and the desired 
inputs as well as PASS 1 and PASS 2 outputs. 

The implementation would now proceed to the coding phase 
in the language for the chosen machine. The result of this 
effort would be the Translator Code . 

Concurrently, with the actual coding of the Translator, 
two subsidiary but important efforts should be going on. The 
first of these is to produce a Translator User's Manual which 
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would tell the user how to set up and run the Translator, 
how to prepare the input, and what the supporting and final 
outputs consist of. 

The seconi document is the Translator Test Plan . This 
must deal with two levels. First the Test Plan must provide 
proof hat the Translator is generating valid KAL/S and, 
secondly, it must show that the logical transformations 
performed are valid. 



7.2 Verification 

The two- level Test Plan is now brought into operation* 
The HAL/S compiler can effectively deal with the first level 
of verification. That is, whether the Translator has produced 
valid HAL/S code. Translator output in the form of a GGAL_ 
MASTER_PROGRAM is, by design, supposed to meet completely 
the necessary characteristics of a HAL/S applications software 
program, and can therefore be submitted as an input to the 
compiler. 

The Test Plan will have to provide for successive levels 
of complexity in the GOAL source inputs. These successive 
levels are suggested in Table 7-1* 

The HAL/S Compiler will provide completely adequate 
diagnosis of the HAL/S source* This diagnosis includes the 
items in Table 7-2. This, then, is the fundamental approach 
to syntactical verification via the use of the HAL/S compiler* 

The second verification level involves making a valid 
functional check of the resulting HAL/S. This level involves 
the project in the very fundamental question of Shuttle software 
verification. It is expected that the HAI^S-360 Compiler 
will have, in addition to the HAL/S compiler function, some 
form of HAL Statement Simulator (HSS) which will simulate 
execution of HAL/S programs on a flight computer. If this 
simulator is provided with virtual function designator data 
which interacts with the HAL/S DATABANK procedure, then a 
degree of functional verification can be accomplished. A 
diftrrent functional w .fication at this level can and should 
be accomplished by running GOAL-in-HAL on the AP-101 target 
machine which is scheduled tc ^? ntx ?1 element in the 
Shuttle Avionics. Integration ■* * r\ (SAIL). 
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0) Single GOAL Statements (Visual Verification 
against Specification) 



1) Single GOAL Program, No Stops, No Repeats, 
No Interrupts, No Tables 



2) Single GOAL Program, Add Stops, Repeats, 
Interrupts, and Tables 



3) Multiple GOAL Programs 



4) Multiple GOAL Programs with sets of 

CONCURRENTLY Perform, Verify and Record 

Statements 



Table 7-1. Successive Levels of GOAL Source 
Complexity for Translator 
Verification 
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Block Summary 



Outer Variables 
Outer Replaces 



Program Layout 



Programs , Functions 
and Procedures 



Symbol Table Listing 



Name, Type, Class, 
Length, Precision, 
Nesting, etc. 



Cross Reference Listing 



Flags & Statement No. 



Macro Text Listing 



Etc. 



Table 7-2. HAL/S Compiler Diagnosis 
of Source 
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A third test of the overall GOAL system, which includes 
the GOAL compiler, Translator, and HAL/S compiler, will be in 
the execution of a translated GOAL program in the SDL using 
simulated equipment and environment. 

The results of these two levels of verification testing 
carried out in accordance with the Translator Test Plan 
are documented in the Translator Test Results document. This 
will only be issued in final form when all aspects of the 
Specification have been verified. Preliminary versions would 
include the results of the two levels of testing previously 
described. 



7.3 Operations, Maintenance and Update 

It is important to recognize that the Translator acts 
as a bridge between two languages each of whom will be subject 
to change. Accordingly, it is necessary to have a Translator 
Maintenance and Update Procedure . 

Under such a plan, the Translator would be under the 
aegis of a Change Control Board (CCB) at KSC. Computer Program 
Change Requests (CPCR's) would be brought to this CCB in 
response to three categories of events: 

a) A GOAL Change or CPCR 

b) A HAL/S Change approved by the Software Control 
Board (SCB) at JSC using a Language Change 
Request (LCR) as the vehicle. 

c) A Translator Discrepancy Report (DR) . 

The Translator CCB would act on the CPCR. If it approved 
a Translator change, it would also specify the tests to be 
run and test reports to be written. 

7.4 Documentation 

A list of proposed GOAL-to-HAL Translator documentation 
is given below: 
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7.4.1 Specifications 

7.4.1.1 Translator Specification 

(Per NAS 10-8385) 

7.4.1.2 Host Machine and Language Addendum 

7.4.2 Translator Code Documentation Listing 

7.4.3 Translator User's Manual 

7.4.3.1 How to Run the Translator 

Basic Procedures 
Run-Time Options 

7.4.3.2 Preparing GOAL Source Input 

7.4.3.3 Supporting Output 

Optional Primary GOAL Source Listing 
GMP Structure Outlines 
Translated GOAL Program Structure 
Function Designator Utilization List 

7.4.3.4 Final HAL/S Source Output 

7.4.4 Translator Test Plan 

7.4.4.1 Valid HAL/S Check by Compilation 

7.4.4.2 Valid Functional Check by: 

HAL Statement Simulator 

SAIL Test 

SDL Simulation 

7.4.5 Translator Test Results 

7.4.5.1 Compilation Results 

7.4.5.2 Functional Results 
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7.4.6 Translator Maintenance Manual and Update Procedure 

7.4.6.1 CCB Procedure 

7.4.6.2 GOAL Changes 

7.4.6.3 HAL/S Changes 

7.4.6.4 Translator DR's and Host Machine Changes 

7.4.6.5 Change Validation 

7.4.6.6 How to Debug the Translator 

7.5 Translator Schedule 
See Figure 7-1. 
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8 . RECOMMENDATIONS 

8.1 Choice of Host Machine 

The GOAL-to-HAL Translator should be implemented on the 
IBM 360 or equivalent. This is because the HAL/S language, 
as defined in the HAL/S Language Specification, is going to 
be implemented on a HAL/S-360 compiler system resident on a 
IBM 360. The same compiler system, with minor modifications, 
will be compatible with the IBM 370 computer series. 

By choosing the IBM 360 as the host machine, the transla- 
tion and the compilation can be run end-to-end with immediate 
syntactical verification of the overall results. Furthermore, 
a HAL Statement Simulator (HSS) will be resident on the machine 
and it will provide a flight computer functional simulation 
for functional checking. 

8.2 Choice of Translator Language 

The Translator should be implemented using the XPL 
Translator Writing System (TWS) as the primary tool. TWS is 
a tool which is intended to assist in the writing of translator- 
compilers , interpreters , assemblers , etc. Its usefulness lies 
in its ability to supply uniform functional modules for standard 
functions such as text scanning and to automate the production 
of language-dependent portions of the Translator. This special- 
ized language is very close to machine language form, aJtJiough 
it has the convenient block-structure of PL/1 or HAL. It is 
an easy language to use for strings, indexing, etc. since 
it doesn't have the bulk of assembly language nor does it have 
Fortran's inappropriate mathematical orientation. 

The HAL compiler was written in XPL and it was found 
to be an efficient and powerful tool. 
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APPENDIX A. GOAL-TO-aAL MAPPING 



In this section , the proposed relationships between 
the GOAL and HAL statements are described in some detail. 
This description has been designated "mapping" in order 
to distinguish it from the Translator Specification, Mapping 
will give an explanation or example of each complete GOAL 
statement. The Specification rigorously defines all variations, 
permutations, and combinations of each GOAL statement. 



A.l Declaration Statements 

A. 1.1 Single Data 

GOAL Statement: 

DECLARE NUMBER (RESULTS) ; 

Purpose : 

This statement declares a numeric data item with 
the symbolic name (RESULTS) for purposes of general computa- 
tion within the GOAL program. 

Equivalent HAL/S form: 

DECLARE RESULTS; This statement will declare an 
unarrayed single precision scalar variable which can be used 
in the same context as the corresponding GOAL form. 

GOAL Statement: 

DECLARE QUANTITY (OFFSET) ■ .5 PSI, (PUMP PRESS); 

Purpose: 

This statement declares a GOAL "quantity" (a real 
number and an associated dimension) as a variable for use 
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in a program. Since the units associated with these entities 
exist for annotation purposes only, the equivalent HAL/S 
declarations include a scalar declaration and a character 
string dimension. 



HAL/S Equivalent Form: 

DECLARE OFFSETD INITIAL (0. 5) ; DECLARE OFFSETDIM INTEGER 
SINGLE INITIAL(3); DECLARE PUMP_PRESSD ; DECLARE PUMPJPRESSDIM 
INTEGER SINGLE; 

Note that the initialization value of 0.5 was provided 
in the GOAL form as a compile time assignment (the equal-sicm) 
which becomes the initial value 0.5 in the HAL/S form. The 
OFFSETDIM value of three (3) is presumed to correspond to the 
PSI label. 



GOAL Statement: 

DECLARE STATE (FLAG A) = ON, (FLA r B) ; 

Purpose : 

This statement is used in the context of a GOAL 
program to declare the existence of the single bit booleans 
FLAG A and FLAG B. The initial value of the variable FLAG A 
is set to be ON. FLAG B is not initialized. 

Equivalent HAL/S Form: 

DECLARE BOOLEAN FLAG_AD INITIAL (ON) ; 
DECLARE BOOLEAN FLAG_BD; 

GOAL Statement: 

DECLARE TEXT (ERROR MESSAGE) ■ (6D10 BATTERY VOLTAGE LOW); 
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Purpose: 

This statement is used in a GOAL program to declare a 
fixed character message which will be used in some I/O 
operation. Since there is no character manipulation or assign* 
ment in GOAL, this message must always be either fixed or 
defined in some input operation. 



Equivalent HAL/S Statement: 

DECLARE ERRORJKESSAGED CHARACTER(24) INITIAL ( f 6D10 BATTERY 

VOLTAGE LOW 1 ); 



A* 1.2 List Type 
GOAL Statement: 

DECLARE NUMERIC LIST(LIST NUM) WITH 4 ENTRIES; 

Purpose: 

This statement declares to the GOAL compiler that 
the programmer wishes to create a linear array of 4 numeric 
elements without any initialization. 

Equivalent HAL/S Form: 

DECLARE LISTJJUMD ARRAY (4) ; 

GOAL Statement: 

DECLARE NUMERIC LIST (ROOT 3) WITH 10 ENTRIES 1.000 , 
1.360, 1.442, 1.587, 1,710, 1.8^7, 1,903, 2.000, 2.080, 
2.154; 
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Purpose: 

This statement declares to the GOAL compiler that the 
programmer wishes to create a linear array of 10 numeric 
elements with the indicated initialization. 



Equivalent HAL/S Form: 

DECLARE ROOT 30 ARRAY(IO) INITIAL(1* 00, 1.260, 1,442, 
1.587,1.710,1.817,1.903,2.000,2.080,2.154) ; 



GOAL Statement: 

DECLARE QUANTITY LIST (LIST A) WITH 3 ENTRIES? 

Purpose : 

This statement creates a list of 3 GOAL quantities 
in a linear array form. Each quantity has a scalar value 
and a physical units dimension. 

HAL/S Equivalent Form: 

DECLARE LIST_AD ARRAY (3); 

DECLARE LISTjADIM ARRAY (3) INTEGER SINGLE; 

GOAL Statement: 

DECLARE QUANTITY LIST (VOLTAGE LIST) WITH 6 ENTRIES 
28V,+0.5V,-0.5V,0V,50V,10 SECS; 



Purpose: 

This statement sets up a list of 6 GOAL quantities, 
with initialization to the values indicated. 
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HAL/S Equivalent Form: 

DECLARE VOLTAGE_LISTD ARRAY (6) 

INITIAL(28,0.5,-0.5,0,50,10); 

DECLARE VOLTAGE_LISTDIM ARRAY (6) INTEGER SINGLE 
INITIALd, 1,1,1, 1,2) ; 

Note that the units are presented in a coded form, assuming 
1 = volts and 2 = seconds. 



GOAL Statement: 

DECLARE STATE LIST (FLAG LIST) WITH 10 ENTRIES; 

Purpose : 

This statement sets up an array of 10 booleans for 
reference within the GOAL program. No initialization is 
performed. 

HAL/S Equivalents: 

DECLARE FLAG_LISTD ARRAY (10) BOOLEAN; 

GOAL Statement: 

DECLARE STATE LIST (LIST STATE) WITH 6 ENTRIES 
ON,ON,ON,OFP,OFF,ON; 

Purpose: 

This statement declares an array of 6 binary 
values (Booleans) for use within the GOAL program to store 
the states of discretes. 

Equivalent HAL/S Form: 

DECLARE LIST_STATED ARRAY(6) BOOLEAN INITIAL (ON, ON, ON, OFF, OFF, ON) ; 
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GOAL Statement: 



DECLARE TEXT LIST (INPUT) WITH 2 ENTRIES WITH A 
MAXIMUM OF 25 CHARACTERS; 



Purpose : 

This statement sets up an array of two text strings 
for use as the receiver of some input followed by later 
use as the source of some output (no internal manipulations 
of text are provided by GOAL) • 

Equivalent HAL/S Form: 

DECLARE INPUTD ARRAY (2) CHARACTER (25) ; 

Note that in this example the original name duplicated a 
HAL/S keyword and thus had to be modified in some way follow- 
ing the translation. In the example, *:he letter D was appended 
to the original name thereby resolving tfie keyword conflict. 
The maximum length of 25 carries over directly. 



GOAL Statement: 

DECLARE TEXT LIST (OPERATOR INSTRUCTION) WITH 2 ENTRIES 
(PLACE SWITCHES INDICATED) , (*PREFLIGHT TM CAL IN 
PROGRESS*) ; 

Purpose : 

This statement declares an array of two character 
strings which are initialized to the values indicated, with 
a maximum length determined by implication from the length 
of the initial values. 

Equivalent HAL/S Form: 

DECLARE OPERATOR_INSTRUCTIOND ARRAY (2) CHARACTER (30) 
INITIAL ('PLACE SWITCHES INDICATED 1 , '♦PRELIGHT 
TM CAL IN PROGRESS* 1 ) ; 

This is a direct translation, with the only subtlety 
being the determination of the maximum length found among the 
initial values so that the character string maximum length 
may be declared. 
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A. 1.3 Table Types 

The translation of GOAL table data types requires a 
strategy employing several HAL/S arrays to accomplish the 
same ends within the framework of a HAL/S program. A set 
of arrays which will accomplish this is the following: 

1. A main data array with row and column dimensions 
identical to the row and column dimensions of 
the original GOAL table. The HAL/S data type 

of this table will be SCALAR, BOOLEANS, or 
CHARACTER depending upon the original GOAL 
table's data type (QUANTITY & NUMERIC, STATE, 
or TEXT respectively) . This array will store data 
in the HAL/S version. For GOAL QUANTITY tables, 
an auxiliary character array of dimensions is 
required. 

2. An auxiliary "activation array" of BOOLEAN 
elements controlling whether or not the given 

row is to be active at some time during execution. 

These two arrays cover all the variable information about a 
GOAL table as translated into HAL/S, 



GOAL Statement: 

DECLARE NUMERIC TABLE (HIGH LOW RUN) WITH 3 ROWS 
AND 4 COLUMNS TITLED 

(HIGH) , (LOW) , (RUN) , (CUR) WITH ENTRIES 



<E1 GG CHAMBER P> 


/ 


1000.1, 


1.0, 


500.0, 


9 


<E2 G6 CHAMBER P> 


r 


1001.2, 


.9, 


500.0, 


9 


<E3 GG CHAMBER P> 


/ 


999.8, 


1.2, 


500.0, 


9 



Purpose : 

This statement sets up a GOAL table with initial values 
in 3 columns, and 3 rows of function-designators. A fourth 
column is left uninitialized. 
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Equivalent HAL/S Form: 

Main Data Array ; 

DECLARE HIGH LOW RUND ARRAY (3,4) INITIAL ( 



1001.1, 


1.0, 


500.0, 


0, 


1001.2, 


0.9, 


500.0, 


o, 


999. 8, 


1.2, 


500.0, 


0); 



Mote here that the HAL/S initialization cannot embed uninitial- 
ized values within its list so a "0" has been used .in the fourth- 
column entries. 

DECLARE HIGH_LOW_RUNR ARRAY (3) INITIAL 

(<FD(1)>,<FD(2)>,<FD(3)>); 
DECLARE HIGH LOW RUNA ARRAY (3) BOOLEAN INITIAL (ON) ; 



GOAL Statement: 

DECLARE QUANTITY TABLE (MAIN FUEL FLOW) WITH 5 ROWS 

AND 3 COLUMNS WITH ENTRIES 

<E1 MAIim FUEL>, 0.1 PPS, 300.1 PPS, 

<E2 MAIN FUEL>, 0.3 PPS, 300.2 PPS, 

<E3 MAIN FUEL>, 0.4 PPS, 300.1 PPS, 

<E4 MAIN FUEL>, 0.2 PPS, 300.1 PPS, 

<E5 MAIN FUEL>, 0.1 PPS, 299.8 PPS, 



Purpose : 

This statement sets up a GOAL quantity table with 5 
function designators and 3 columns. Since this is a quantity 
table, and since quantity units can change as date, the HAL/S 
equivalent will have two main data arrays, the second containing 
dimensional data. 



Equivalent HAL/S Form: 
Main Data Arrays : 

DECLARE MAIN FUEL_FLOWD ARRAY (5, 3) INITIAL ( 
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0.1, 300.1, 0, 

0.3, 300.2, 0, 

0.4, 300.1, 0, 

0.2, 300.1, 0, 

0.1, 299.8, C); 

DECLARE MAIN_FUEL_FLOWR ARRAY (5) 

INITIAL (<E1 MAIN FUEL> , <E2 MAIN FUEL>,<E3 MAIN FUEL>, 
<E4 MAIN FUEL>,<E5 MAIN FUEL>) ; 

DECLARE MAIN_FUEL_FLOWA ARRAY (5) 
BOOLEAN INITIAL (ON) ; 

DECLARE MAIN_FUEL_FLOWDIM ARRAY (5, 3) 
INTEGER SINGLE INITIAL 

(3,3,0,3,3,0,3,3,0,3,3,0,3,3,0); 

using the coded form for dimensions 3 * PPS and = unspe- 
cified. 



GOAL Statements: 

DECLARE STATE TABLE (THRUST OK) WITH 5 ROWS AND 
3 COLUMNS TITLED (THRUST OK) , (THRUST NOT OK) , 
(STATE) WITH ENTRIES 



<THRUST OK 


1E1> 


, ON, 


OFF, , 


<THRUST OK 


1E2> 


, ON, 


OFF, , 


<THRUST OK 


1E3> 


, ON, 


OFF, , 


<THRUST OK 


1E4> 


». ON, 


OFF, , 


<THRUST OK 


1E5> 


# ON, 


OFF, , 



Purpose : 

This statement sets up a GOAL "state table 11 with 3 columns 
and 5 rows, initialized as shown. 
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DECLARE THRUSTJOKD ARRAY (5, 3) BOOLEAN INITIAL (TRUE, 
FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, 
FALSE); 

DECLARE THRUSTJOKR ARRAY (5) INITIAL (<THRUST OK 1E1>, 
<THRUST OK 1E2>,<THRUST OK 1E3>,<THRUST OK 1E4>, 
<THRUST OK 1E5>) ; 

DECLARE THRUST OKA ARRAY (5) BOOLEAN INITIAL (ON); 



GOAL Statement: 

DECLARE TEXT TABLE (MESSAGE TABLE) WITH 2 ROWS 
AND 1 COLUMN TITLED 

(MESSAGE A) WITH ENTRIES 

<224 DISPLAY B35> , (SWITCH SCAN IN PROGRESS) , 

<224 DISPLAY B42> , (PLACE ABOVE SWITCHES AS INDICATED) ; 

Purpose: 

This GOAL statement prepares a table of character 
string data associated with two function designators. The 
table has but a single column. 

Equivalent HAL/S Form: 

Main Data Array ; 

DECLARE MESSAGE_TABLED ARRAY (2,1) CHARACTER(33) INITIAL ( 
'SWITCH SCAN IN PROGRESS', 
'PLACE ABOVE SWITCHES AS INDICATED'); 

DECLARE MESSAGEJTABLER ARRAY (2) INITIAL (<224 DISPLAY 
B35>,<224 DISPLAY B42>) ; 

DECLARE MESSAGE TABLEA ARRAY (2) BOOLEAN INITIAL (ON) J 
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A, 2 Procedural Statements 

A. 2.1 Prefixes 

GOAL Step Number Prefix ; 

STEP 163 ... rest of GOAL statement *.. 

HAL/S Equivalent Form : 

STEPJL63: ... rest of HAL statement •.. 

GOAL Time Prefix : 

WHEN <COUNT_DOWN_CLOCK> IS 
-80 HRS 27 MIN 00 SEC THEN 
• • • rest of GOAL statement 

Purpose : 

Cause the GOAL program to wait until the <COUNT_DOWN_ 
CIX)CK> value is greater than or equal to -80:27:00* ~* 

Equivalent HAL/S Form ; 

FLAG = 0; 

DO WHILE FLAG « 0? 

CALL DATABANK ( <COUNT J>OWN_CLOCK> , <PN>) ; 
IF NUMBER <pN> = -289620 

THEN FLAG « 1; 
END; 

In this example, -80 hrs., 27 minutes, was converted to 
absolute time in "machine units" by the Translator subroutine 
CONVERTJTIME. 

The effect pf th ; WAIT statement of HAL/S is independent 
of any following statements (it is not a "prefix" as in GOAL). 
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However, by delaying processing of statements which follow 
it, the WAIT works as if it were the prefix. The effect is 
also identical to the GOAL "WHEN" prefix since any clock time 
greater than or equal to the specified time will cause the 
halt to be ended and/or ignored. 

Note also that all HAL/S Real Time statements assume a single 
real time clock. In order to allow the possibility of multiple 
clocks (not rules out by GOAL specification) , the Translator 
will have to incorporate a scaling and offset algorithm so 
that all clock function designators can be driven by the single 
HAL/S Real Time Operating System clock. 



GOAL Time Prefix: 

AFTER <COUNT DOWN CLOCK> IS -80 HRS 27 MINUTES 
00 SECS THEN • . . 



tar pose: 

Delay execution of the particular statement until 
after the time named. In any time-dependent digital system, 
"after" may only mean "one system clock tick" later than the 
specified time. Thus, this statement is the same as a WHEN 
statement with a time value increased by the unit of the 
basic clock period. 



Equivalent HAL/S form: 

FLAG = 0; 

DO WHILE FLAG = 0; 

CALL DATABANK (<COUNTJDOWN_CLOCK>, <PN>) ; 

IF NUMBER >= -(289620 + <AX>) 

THEN FLAG = 1; 
END; 

where 289620 is the machine-unit (absolute) equivalent of 
the specified time and AX is the granularity of time in 
the clock, expressed in "machine units". 
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GOAL Statement: 



IF (MIDDLE GIMBAL ANGLE) IS GREATER THAN (MIDDLE 
GIMBAL LIMIT) THEN 



The HAL/S Equivalent Form is generated with the assistance of 
the EVAL_INT_NAME and REL_FORM Translator subroutines: 

K = 1; 

IF NOT (MIDDLE_GIMBAL_ANGLE_D > MIDDLE_GIMBAL_LIMIT) 

THEN K = 0; 

IF K = 1 THEN DO; 

(Procedural Statement) 

END; (Provided by Translator) 



GOAL Verify Prefix: 

VERIFY <MIDDLE GIMBAL ANGLE> IS LESS THAN 
(MIDDLE GIMBAL LIMIT) ELSE ... 



The HAL/S Equivalent Form is generated with the assistance 
of the EVAL_ED and REL_FORM Translator subroutines: 

FLAG ■ 0; 

DO WHILE FLAG ■ 0; 

DO FOR K = 1 TO 1 ' 

CALL DATABANK (<MIDDLEJ3IMBAL_ANGLE>) ; 

IF NOT (<NUMBER > <!MIDDLE_GIMBAL_LIMIT>) THEN 
K «= 0; PN 

END; 

IF K = 1 THEK DO; 

COND - TRUE; 

FLAG = 1; 

END; 

ELSE REPEAT; 

END; 

IF COND » FALSE THEN DO; 
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A. 2. 2 External Test Actions 

GOAL Statement: 

SEND 10V to <POWER SELECTOR 1>,<P0WER SELECTOR 2>; 

Purpose : 

This statement is used to implement an I/O operation to 
some specific external device. 

DO FOR K * 1 TO 2; 

DIMENSION <pN> = <QUANTITY DIMENSIONS 

NUMBER <pN> ■ <QOANTITY VALOE>; 

CALL DATABANK ( <AFD (K) > , <PN> ) ; 

END; 

GOAL Stateme. . : 

APPLY PRESENT VALUE OP <POWER BUS 1> TO 
<POWER BUS 2>; 

Purpose : 

This statement is used to implement an input operation 
from power bus 1 and a corresponding output operation to power 
bus 2 with no intermediate storage in program variables. 

HAL/S Equivalent Form: 

DO FOR K - 1 TO 1; 

CALL DATABANK (<POWER BUS 1>,<PN>) ; 

CALL DATABANK (<POWER BUS 2>,<PN>) ; 
END; 
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GOAL Statement: 

ISSUE (OCTAL SEVENS) , (OCTAL ONES) TO 
<PANEL LIGHTS 32>, <PANEL LIGHTS 31> ; 



Purpose : 

This statement is supposed to send a "digital pattern" 
in the form of a numeric internal variable to a selected I/O 
word identified by the selected function designators. In this 
case, the internal variable (OCTAL SEVENS) is sent to "PANEL 
LIGHTS 32" and (OCTAL ONES) is sent to "PANEL LIGHTS 31"; 



HAL/S Equivalent Form: 
DO FOR K = 1 TO 2; 

NUMBER <pN> = <OCTAL SEVENS> ; 

CALL DATABANK (<PANEL LIGHTS 32>,<PN>); 

K m R + 1 

NUMBER <pN> = <OCTAL ONES>; 

CALL DATABANK (<PANEL LIGHTS 31>,<PN>); 
END; 

GOAL Statement: 

ISSUE PRESENT VALUE OF <CH 63> TO <CH 11>; 

Purpose : 

As in the above example, this is simply some I/O of data 
to a articular set of channel addresses in some channel or 
channels of the I/O hardware. 
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HAL/S Equivalent Form: 
DO FOR K = 1 TO 1; 

CALL DATABANK (<CH 63>,<PN>); 

CALL DATABANK (<CH 11>,<PN>); 
END; 



GOAL Statement: 

S 104 AFTER <CLOCK> IS -1 HRS r OPEN <HELIUM SUPPLY > ; 



Purpose : 

This GOAL statement has a time prefix, and a label 
prefix, used to control when and under what conditions the 
action of sending a bit valve corresponding to an OPEN valve 
to an external register symbolically identified by the function 
designator "HELIUM SUPPLY". 

HAL/S Equivalent Form: 

STEP_104 : 

WAIT UNTIL -3600.001; 
STATE <pN> - OFF; 
DO FOR K = 1 TO 1; 

CALL DATABANK ( <HELIUM SUPPLY>,<PN>) ; 

END; 



GOAL Statement: 

STEP 5: TURN ON (THRUST OK IND) FUNCTIONS; 

Purpose : 

This GOAL statement is suppose.- . , set all the bits 
in all the active function designators of a STATE teble to 
the "ON" value. 
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HAL/S Equivalent Form: 

S**3p 5: STATE <pN> = ON; 
u*> FOR K - 1 TO <KMAX>; 

IF THRUST _OK_INDA^ THEN 

CALL DATABANK (<THRUST_OK_INDRj^>,<PN>); 
END; 



GOAL Statement: 

RECORD (INTERNAL TIME) TO <MAG 2-5>; 

Purpose : 

This statement is supposed to send data from a GOAL 
internal variable named "Internal time" to the function 
designator identified. This means in effect that an I/O 
operation of writing the internal value to the implicit I/O 
address of the function designator is required. 

HAL/S Equivalent Form: 

TEXT <pN> = INTERNALJTIMED; 
DO FOR L = 1 TO 1; 

CALL DATABANK (<MA62-5>,<PN>) ; 
END; 



GOAL Statement: 

DISPLAY TEXT (ALL SYSTEMS READY FOR POWER TRANSFER) 
TO <CRT 9>; 



Purpose : 

This statement is supposed to write the given text out 
onto a character-oriented I/O device, namely a display. Since 
this output is character-oriented, the equivalent HAL/S form 
will have a character output statement form. 
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HAL/S Equivalent Form: 

TEXT pN « , ALL_SYSTEMS_READY_FOR_POWER_ 

TRANSFER' ; 
DO FOR L = 1 TO 1; 

CALL DATABANK (<CRT 9>,<PN>) ; 
END; 



GOAL Statement: 

AVERAGE 10 READINGS OF <IU COOLANT TEMPERATURE> AND 
SAVE AS (COOLANT TEMP) ; 



Purpose: 

The purpose of this statement is to read a hardware 
input channel 10 times, averaging the readings. No time 
delay other than the response time of the software is to 
be employed explicitly between successive readings. 



HAL/S Equivalent Form: 

DO; 

AV « 0; 

DO FOR I = 1 TO 10; 

CALL DATABANK ( < IU COOLANT TEMPERATORE> , <PN> ) ; 

AV « AV + NUMBER^ „ M ^; 

<PN> 

END; 

CQOLANTJTEMPD = AV/NOM; 
END; 



GOAL Statement: 

READ <PC STAGS INLET PRESSURE> AND SAVE AS 
(INLET PRESSURE) ; 
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HAL/S Equivalent Form: 

CALL DATABANK (<PC STAGE INLET PRESSURE> ,<PN>) ; 
INLET_PRESSURED = NUMBER <pN> ; 

GOAL Statement: 

READ (TABLE A) FUNCTIONS AND SAVE AS (CURRENT VALUE) ; 



Purpose : 

The purpose of this statement is to evaluate the current 
value of all the function designators (which are active) in 
the TABLE_A and assign the results into corresponding positions 
in the table column indicated. 



HAL/S Equivalent Form: 

DO FOR K = 1 TO*<KMAX>; 

IF TABLEJU^ THEN IF CURRENTJfALUEAj^ THEN DO; 

CALL DATABANK (<TABLE_AR R >,<PN>) ; 

CURRENT_VALUED K<CI> = NUMBER <pN> ; 

END; 
END; 

GOAL Statement: 



REQUEST TEXT (DEGREES PITCH) FROM <CRT 7> AND SAVE 
AS (DEG PTCH) ; 

Purpose : 

Display a request on the console and then reads in the 
result. Since a character-oriented operation with conversion 
to scalar is involved, a conversion function in the HAL/S version 
will be used. 

HAL/S Equivalent Form: 
DO FOR K = 1 TO 1; 

CONTROL <pN> » <INPUT>; 

CALL DATABANK (<CRT 7>,<PN>); 

<DEG_PTCH> « TEXT <pN> ; 



END; 
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A. 2. 3 internal Sequence Control 

GOAL Statement: 

DELAY 5 SECS; 

Purpose : 

Cause the program to "go to sleep" for a time interval 
of 5 seconds. 

HAL/S Equivalent Form: 
WAIT 5? 

GOAL Statement: 

WAIT UNTIL <SIVB 3200 PSIA SOP VENT> IS OPEN? 

Purpose : 

Cause the program to "go to sleep" for a time interval 
of unspecified length until the boolean (state) function 
designator is recognized as being "OPEN". 

HAL/S Equivalent Form: 

FLAG = 0; 

DO WHILE FLAG = 0; 
DO FOR K = 1 TO 1; 

CALL DATABANK (<SIVB 3200 PSIA SUP VENT> / <PN>); 

IF NOT (STATE <pN> •» ON) THEN 

K * 0; 
END; 
IF K «= 1 THEN FLAG = 1; 
ELSE REPEAT; 
END; 
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GOAL Statement: 
GO TO S 20; 

HAL/S Equivalent Form: 

GO TO STEP_20; 

where the label S 20 of GOAL has been translated into a 
hAL/S identifier. 

GOAL Statement: 

STOP AND INDICATE RESTART LABELS S100, S200; 



Purpose : 

To give the GOAL program an ability to cease active 
execution and wait for operator intervention, followed by 
a jump to one of the indicated labels. 



HAL/S Equivalent Form: 

CONTROL <pN> = '3'; 

CALL DATABANK ( , <PN> ) ; 

TEXT p „ = 'PROGRAM HAS STOPPED AT UNNUMBERED STATEMENT. 
INDICATE RESTART AT; 

CALL DATABANK ( , <PN> ) ; 

TEXT <pN> = 'STEP^OO'; 

CALL DATABANK ( , <PN> ) ; 

TEXT <pN> = , STEP_200'; 

CALL DATABANK (0 ,<PN>) ; 

AGAIN: C0NTR0L <pN> = < INPUT RESTART LABEL>; 

CALL DATABANK (0, <PN>) ; 
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LOG = 0? 
CALL FLUSH; 

IF TEXT « , STEP_100 I THEN GO TO STEP_100; 
IF TEXT = 'STEP^OO 1 THEN GO TO STEP_200; 
CONTROL <pN> » 'ERRORS- 
CALL DATABANK (0,<PN>) ; 
GO TO AGAIN; 

GOAL Statement: 
TERMINATE; 

Purpose : 

The TERMINATE statement of GOAL is used to: 

Return control to the calling program if it is 
found in a GOAL subroutine* 

Stop execution of a program if found at the 
program level, returning control to the caller ♦ 

HAL/S Equivalent Form: 
RETURN; 

GOAL Statement: 

TERMINATE SYSTEM; 

Purpose : 

This statement shuts down an entire system of programs, 
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HAL/S Equivalent Form: 
SET TERMSYS <pN> ; 
RETURN ; 



GOAL Statement: 

REPEAT STEP 5 THRU STEP 7; 

HAL/S Equivalent Form: 
OUTPUT HAL/S: 

"RPT = RPT + 1? 

RPTACT <RSK> * ° N; 
SAVE^ = RS; 

RS = <RSN>; 

RPT CTR^ = 1; 

GO TO STEP_5; 

RETURN_LA3EL<RSN> : 

RS = SAVE RpT ; 

RPT « RPT 1; 
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A. 2.4 Arithmetic/Logical Operations 

GOAL Statement: 

ASSIGN (FLAG B) = ON; 

Purpose : 

Set a new value of "ON" into the (FLAG B) internal 
name. 

HAL/S Equivalent Form: 

FLAG_B ■ TRUE; 

This equivalence assumes the convention that "ON n 
has a binary value of H l n or tt true n . FLAGJB is assumed 
to be a HAL/S BOOLEAN. 

GOAL Statement: 

LET (A) « (A) + 1; 

Purpose : 

Assign a new value to GOAL internal variable (A) 
calculated as shown. 

HAL/S Equivalent Form: 
A « A + 1; 

A.2 % 5 Execution Control 

GOAL Statement: 

CONCURRENTLY PERFORM PROGRAM (BE01) ; 
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HAL/S Equivalent Form: 

SCHEDULE TASK <BEC1>; 



GOAL Statement: 

CONCURRENTLY VERIFY <PRESS ENG 102 GIMBAL> 
IS BETWEEN 1665PSIA and 1465PSIA and 
DISPLAY EXCEPTION TO <CRT12>; 



HAL/S Equivalent Form: 

SCHEDULE TASK <NUM> ; 
TASK <NUM>: TASK; 
RESET TERM_SYS <NUM> ; 
BACK: T QLD - RUNJTIME; 
DO FOR K = 1 TO 1; 

CALL DATABANK (<PRESS ENG 102 GIMBAL> ,<PN>) ; 

It wOT(<NUMBER <pN> > >= <1465>) AND 
<NUMBER <pN> > =< <16657>) 

THEN K = 0; 
END; 
IF K NOT = 1 THEN DO; 

TEXT <pN> = <DEFAULT MESSAGE> ; 

DO FOR K * 1 TO 1 

CALL DATABANK ( <CRT12> , <PN> ) ; 

END; 
END; 



A-25 
NTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE. MASSACHUSETTS 02138 • (617) 661-1840 



GOAL Statement: 

RELEASE STEP 10; 

Purpose : 

Step 10 had "concurrently" set up some concurrent process 
at a previous time. This statement "releases" the concurrent 
process initiated, by removing it from the implicit executive 
queues involved. 

HAL/S Equivalent Form: 

TERMINATE TASK <PROGN>; 
SET TERM^SYS <pR0GN> ; 



GOAL Statement: 
RELEASE ALL 



Purpose: 

Terminate all concurrently scheduled operations within 
the current GOAL component. 

HAL/S Equivalent Form: 

TERMINATE TASK <ANUM fe >; 
SET TERM^SYST <ANUMk> ; 

where k is cycled from 1 to the maximum provided in the arrays. 



A-26 
INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE. MASSACHUSETTS 02138 • (617) 661-18- 



GOAL Statement: 

PERFORM PROGRAM (LVDC POWER ON) ; 

Purpose : 

Branch to the program selected, execute it and return. 

HAL/S Equivalent Form: 

CONTR0L <pN> = <PUSH INT ENVIRONMENT^ 

CALL DATABANK (1,<PN>) ; /*SAVE INT ENVIRONMENT*/ 

RESET TERM_SYST <NUM> ; 

CALL G_LVDC POWER ON; 

CONTROL = <POP_INT_ENVIRONMENT> 

CALL DATABANK ( 1, <PN> ) ; /*RESTORE INT ENVIRONMENT*/ 

IF TERM_SYST <NUM> THT.N DO; 

RESET TERM_SYST <NUM> ; 
SET TERM_SYST • 

RETURN; 
END; 



GOAL Statement: 

PERFORM CRITICAL SUBROUTINE 
(CALCULATE DELAY TIME) ; 



Purpose : 

Inhibit all software- level interruptions by other 
system components (this does not refer to physical interrupts 
which the OS handles) during the execution of the subroutine. 
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HAL/S Equivalent Form: 

CONTROL <pN> ■ <PUSH INT ENVIRONMENT ; 

CALL DATABANK (1,<PN>) ; 

CALL G_CALCULATE DELAY TIME (TRUE) ; 

CONTROL.,-^ = <POP INT ENVIRONMENT ; 
<PN> 

IF TERM_SYST <pN> THEN DO; 
RESET TERM__SYST <pN> ; 
RETURN; 
END; 



A. 2. 6 Interrupt Control 

GOAL Statement: 

WHEN INTERRUPT <POWER FAILURE> OCCURS 
GO TO STEP 9000; 

Purpose : 

Send control to step 9000 when the indicated interrupt 
occurs. 

HAL/S Equivalent Form: 

IF NOT C THEN DO; 

CONTROL <pN> « <ENABLE INTERRUPTS 

NUMBER^..^ = <POWER FAILURE> ; 
<PN> 

CALL DATABANK (1,<PN>) ; 
ENVIRON (2, <IN>) » 0; 
ENVIRON ( 3, <IN>) « <CN>;* 
END; 
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GOAL Statement: 

WHEN INTERRUPT <CLOCK T-22 MINS> OCCURS PERFORM 
SUBROUTINE (STARTJTANK CHILLDOWN) AND RETURN TO 
STEP 9999 j 



Purpose : 

When the indicated interrupt occurs, perform a subroutine 
then unconditionally branch to the indicated step number. 



HAL/S Equivalent Form: 
IF NOT C THEN DO; 

CONTROL <pN> « <ENABLE INTERRUPTS 

NUMBER <pN> = <CLOCK T-22 MINS- ; 

CALL DATABANK ( 1 , <PN> ) ; 

ENVIRON (2 ,<IN>) = <NS> ; 

ENVIRON ( 3, <IN>) - <CN>;* 

END; 

* IN = No. Assoc, with Interrupt. 

CN = Case Number Assoc, with GO TO or RETURN TO option. 
NS *» Number Assoc, with Subroutine 



GOAL Statement: 

DISABLE STEP 20; 

Purpose : 

Inhibit a software interrupt set up by a "WHEN 
INTERRUPT" at the step indicated (STEP 20) ; 
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HAL/S Equivalent Form: 

CONTROL <pN> « <DISABLE>; 
NUMBER <pN> = <PD>; 
CALL DATABANK (1 , <PN>) ; 



A, 2. 7 Table Control 

GOAL Statement: 

ACTIVATE (TABLE A) ROW 1, ROW 3; 

Purpose : 

Activate the function designators associated with 
the indicated rows so that future I/O to this table will 
include the rows in question. 

HAL/S Equivalent Form: 

The HAL/S translation of a GOAL table involves a 
data array and an activation array of BOOLEANS. Assuming 
that n TABLE_AA, " is TABLE A's activation array ,. and that 
"TRUE 1 meano tne corresponding row is active, then the 
HAL/S equivalent is simply: 

TABLEJU^ = ON; 

TABLE AA. t « CU; 

GOAL Statement: 

INHIBIT (TABLE \) ROW 2, ROW 3; 
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Purpose: 

Disable the function designators associated with the 
indicated rows,* so that future I/O to this table will 
exclude the rows in question. 



HAL/S Equivalent Form: 

Analogous to the ACTIVATE case: 
TABLE_AA2 » OFF; 
TABLE AA3 = OFF; 



A-31 

i 

iMTERMETPT ORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 * (617) 661-1840 



A. 3 System Statements 

The GOAL system statements serve primarily as inputs 
governing the course of the GOAL-HAL/S translator's operation. 
Some of these statements have implications which are reflected 
in the HAL/S code produced* 

A. 3.1 Boundary Statements 



GOAL Statement: 

BEGIN DATA BANK (S2 DATA BANK) REVISION 0; 

Purpose: 

Mark the beginning of the Data Bank named for input 
to an appropriate data bank compilation. This statement should 
not be in the GOAL source* The Translator will generate an 
error message. 

GOAL Statement: 

BEGIN PROGRAM (LV TM CAL) REVISION 0; 

Purpose : 

Mark the beginning of a GOAL program* 

HAL/S Equivalent Form: 

G_LVJTM_CALJ> : PROCEDURE EXCLUSIVE; 

GOAL Statement: 

BEGIN SUBROUTINE (FORCE TERM) (PARAMETER 1) ; 
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Purpose: 

This statement begins a GOAL subroutine block, passing 
one formal parameter. 



HAL/S Equivalent Form: 

G_FORCE_TERM: PROCEDURE (C) ASSIGN (PARAMTERJD) ; 

GOAL Statement: 

BEGIN MACRO AZ (PARAMETER 1) ; 

Purpose : 

This statement specifies the start of a GOAL source 
language macro. Since macros only refer to the source code 
and are expanded within the translator, there is no HAL/S 
equivalent* 

This does not exclude use of a HAL/S macro form as 
part of the generated HAL/S source code if a GOAL-to-HAL/S 
translation is done at the source language level. But 
such use is completely separate from the GOAL macro and itj 
use. 

GOAL Statement: 

END DATA BANK; 
END PROGRAM; 
END SUBROUTINES: 
END MACRO; 

T pose : 

Mark the end of the particular GOAL block (or component) 
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HAL/S Equivalent Form: 

Since MACRO forms exist only in the source inputs to 
the GOAL-HAL translation, the END statement for this block is 
devoid of a HAL/S equivalent. 

The HAL/S equivalents of END PROGRAM and END SUBROUTINE 
are provided by the HAL/S CLOSE statement; i.e. 

CLOSE; 



GOAL Statement: 
LEAVE: 

Purpose : 

Link to some other language subroutine (in object form) « 
This is an operating system function which has no equivalent 
in HAL/S and is illegal. 



GOAL Statement: 
RESUME; 

Purpose : 

Return to GOAL compiling after LEAVE. See comment in 
the discussion of "LEAVE" above. 
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A. 3.2 System Directive Statements 

The GOAL system directive statements are USE, FREE, and 
SPECIFY - all of which refer to the DATA BANK. 

These statements have no HAL/S equivalent (see Section 3.0) 
and are system-oriented inputs to the translation process. 
All data bank references are resolved by the translator - the 
data bank (as such) does not appear in the output of the 
translator. 



A. 3. 3 Special Aid Statements 

GOAL Comment Statement: 

$ POWER TRANSFER SWITCH VERIFICATION; 

Purpose : 

Annotate listing. 

HAL/S Equivalent Form: 

a. Embedded Comment 

/* POWER TRANSFER SWITCH VERIFICATION */ 

b. Comment Line 

pos 1 

C POWER TRANSFER SWITCH VERIFICATION 



Note: Consents map directly into comments with identical 
text and minor syntax changes. 
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GOAL Statement: 

EXPAND MACRO ADJUST, <AC SIGNAL>, 
(0.5V), 5340,; 



Purpose: 

Expand a GOAL substitution macro prio to further 
compilation. 

HAL/S Equivalent Form: 

None. All macros involve expanding GOAL source statements, 
so the macro itself and its expansion disappear in the transla- 
tion process. 



GOAL Statement: 

REPLACE <POWER SUPPLY NO 1> 

WITH <POWER SUPPLY NO 2>; 



Purpose : 

Replace is a source level substitution of characters 
prior to compilation, a sort of "mini-macro" facility. 
As with macros, it disappears following translation because 
it must be expanded in order to translate. 
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